New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4161 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2013-11-07T11:01:27+01:00 (11 years ago)
Author:
cetlod
Message:

dev_LOCEAN_2013 : merge in the 3rd dev branch dev_r4028_CNRS_LIM3, see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4153 r4161  
    406406 
    407407 
    408    FUNCTION iom_varid ( kiomid, cdvar, kdimsz, ldstop )   
     408   FUNCTION iom_varid ( kiomid, cdvar, kdimsz, kndims, ldstop )   
    409409      !!----------------------------------------------------------------------- 
    410410      !!                  ***  FUNCTION  iom_varid  *** 
    … …  
    415415      CHARACTER(len=*)     , INTENT(in   )           ::   cdvar    ! name of the variable 
    416416      INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of the dimensions 
     417      INTEGER,               INTENT(  out), OPTIONAL ::   kndims   ! size of the dimensions 
    417418      LOGICAL              , INTENT(in   ), OPTIONAL ::   ldstop   ! stop if looking for non-existing variable (default = .TRUE.) 
    418419      ! 
    … …  
    446447                  SELECT CASE (iom_file(kiomid)%iolib) 
    447448                  CASE (jpioipsl )   ;   iom_varid = iom_ioipsl_varid( kiomid, cdvar, iiv, kdimsz ) 
    448                   CASE (jpnf90   )   ;   iom_varid = iom_nf90_varid  ( kiomid, cdvar, iiv, kdimsz ) 
     449                  CASE (jpnf90   )   ;   iom_varid = iom_nf90_varid  ( kiomid, cdvar, iiv, kdimsz, kndims ) 
    449450                  CASE (jprstdimg)   ;   iom_varid = -1   ! all variables are listed in iom_file 
    450451                  CASE DEFAULT    
    … …  
    467468                  ENDIF 
    468469               ENDIF 
     470               IF( PRESENT(kndims) )  kndims = iom_file(kiomid)%ndims(iiv) 
    469471            ENDIF 
    470472         ENDIF 
    … …  
    12181220      WRITE(cl1,'(i1)')        1   ;   CALL iom_set_field_attr('field_definition', freq_op = cl1//'ts', freq_offset='0ts') 
    12191221      WRITE(cl1,'(i1)')  nn_fsbc   ;   CALL iom_set_field_attr('SBC'             , freq_op = cl1//'ts', freq_offset='0ts') 
     1222      WRITE(cl1,'(i1)')  nn_fsbc   ;   CALL iom_set_field_attr('SBC_scalar'      , freq_op = cl1//'ts', freq_offset='0ts') 
    12201223      WRITE(cl1,'(i1)') nn_dttrc   ;   CALL iom_set_field_attr('ptrc_T'          , freq_op = cl1//'ts', freq_offset='0ts') 
    12211224      WRITE(cl1,'(i1)') nn_dttrc   ;   CALL iom_set_field_attr('diad_T'          , freq_op = cl1//'ts', freq_offset='0ts') 
Note: See TracChangeset for help on using the changeset viewer.