Changeset 761


Ignore:
Timestamp:
2007-12-10T13:11:07+01:00 (14 years ago)
Author:
ctlod
Message:

phasing IOM directory with the trunk, to get changeset 741, 742, 745, 752

Location:
branches/dev_001_SBC/NEMO/OPA_SRC/IOM
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/in_out_manager.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    8484   !!---------------------------------------------------------------------- 
    8585   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    86    !! $Id$ 
     86   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/in_out_manager.F90,v 1.11 2007/03/02 16:37:06 opalod Exp $  
    8787   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    8888   !!---------------------------------------------------------------------- 
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/iom.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    3030   PUBLIC iom_open, iom_close, iom_varid, iom_get, iom_gettime, iom_rstput 
    3131 
     32   PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d 
     33   PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d 
     34 
    3235   INTERFACE iom_get 
    3336      MODULE PROCEDURE iom_g0d, iom_g1d, iom_g2d, iom_g3d 
     
    3942   !!---------------------------------------------------------------------- 
    4043   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
    41    !! $Id$ 
     44   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom.F90,v 1.10 2007/06/29 14:10:50 opalod Exp $ 
    4245   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4346   !!---------------------------------------------------------------------- 
     
    117120      iln = LEN_TRIM(clname) 
    118121      ils = LEN_TRIM(clsuffix) 
    119       IF( INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 ) clname = TRIM(clname)//TRIM(clsuffix) 
     122      IF( iln <= ils .OR. INDEX( TRIM(clname), TRIM(clsuffix), back = .TRUE. ) /= iln - ils + 1 )   & 
     123         &   clname = TRIM(clname)//TRIM(clsuffix) 
    120124      cltmpn = clname   ! store this name 
    121125      ! try to find if the file to be opened already exist 
     
    246250 
    247251 
    248    FUNCTION iom_varid ( kiomid, cdvar, kdimsz 
     252   FUNCTION iom_varid ( kiomid, cdvar, kdimsz, ldstop 
    249253      !!----------------------------------------------------------------------- 
    250254      !!                  ***  FUNCTION  iom_varid  *** 
     
    255259      CHARACTER(len=*)     , INTENT(in   )           ::   cdvar    ! name of the variable 
    256260      INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of the dimensions 
     261      LOGICAL              , INTENT(in   ), OPTIONAL ::   ldstop   ! stop if looking for non-existing variable (default = .TRUE.) 
    257262      ! 
    258263      INTEGER                        ::   iom_varid, iiv, i_nvd 
    259264      LOGICAL                        ::   ll_fnd 
    260265      CHARACTER(LEN=100)             ::   clinfo                   ! info character 
     266      LOGICAL                        ::   llstop                   ! local definition of ldstop 
    261267      !!----------------------------------------------------------------------- 
    262268      iom_varid = 0                         ! default definition 
     269      ! do we call ctl_stop if we look for non-existing variable? 
     270      IF( PRESENT(ldstop) ) THEN   ;   llstop = ldstop 
     271      ELSE                         ;   llstop = .TRUE. 
     272      ENDIF 
    263273      ! 
    264274      IF( kiomid > 0 ) THEN 
     
    280290                  SELECT CASE (iom_file(kiomid)%iolib) 
    281291                  CASE (jpioipsl )   ;   iom_varid = iom_ioipsl_varid( kiomid, cdvar, iiv, kdimsz ) 
    282                   CASE (jpnf90   )   ;   iom_varid = iom_nf90_varid kiomid, cdvar, iiv, kdimsz ) 
    283                   CASE (jprstdimg)   ;   iom_varid = 0   ! all variables are listed in iom_file 
     292                  CASE (jpnf90   )   ;   iom_varid = iom_nf90_varid  ( kiomid, cdvar, iiv, kdimsz ) 
     293                  CASE (jprstdimg)   ;   iom_varid = -1   ! all variables are listed in iom_file 
    284294                  CASE DEFAULT    
    285295                     CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
     
    289299                        &                         'increase the parameter jpmax_vars') 
    290300               ENDIF 
     301               IF( llstop .AND. iom_varid == -1 )   CALL ctl_stop( TRIM(clinfo)//' not found' )  
    291302            ELSE 
    292303               iom_varid = iiv 
     
    696707      IF( kiomid > 0 ) THEN 
    697708         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    698             ivid = iom_varid(kiomid, cdvar) 
     709            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    699710            SELECT CASE (iom_file(kiomid)%iolib) 
    700711            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r0d = pvar ) 
     
    718729      IF( kiomid > 0 ) THEN 
    719730         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    720             ivid = iom_varid(kiomid, cdvar) 
     731            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    721732            SELECT CASE (iom_file(kiomid)%iolib) 
    722733            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r1d = pvar ) 
     
    740751      IF( kiomid > 0 ) THEN 
    741752         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    742             ivid = iom_varid(kiomid, cdvar) 
     753            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    743754            SELECT CASE (iom_file(kiomid)%iolib) 
    744755            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r2d = pvar ) 
     
    762773      IF( kiomid > 0 ) THEN 
    763774         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    764             ivid = iom_varid(kiomid, cdvar) 
     775            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    765776            SELECT CASE (iom_file(kiomid)%iolib) 
    766777            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r3d = pvar ) 
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/iom_def.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    88   !!--------------------------------------------------------------------------------- 
    99   !! OPA 9.0 , LOCEAN-IPSL (2006)  
    10    !! $Id$ 
     10   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom_def.F90,v 1.7 2007/06/05 10:33:38 opalod Exp $  
    1111   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1212   !!--------------------------------------------------------------------------------- 
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/iom_ioipsl.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    3535   !!---------------------------------------------------------------------- 
    3636   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
    37    !! $Id$ 
     37   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom_ioipsl.F90,v 1.8 2007/06/29 14:10:50 opalod Exp $ 
    3838   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3939   !!---------------------------------------------------------------------- 
     
    195195                  &                       'increase the parameter jpmax_vars') 
    196196         ENDIF 
    197 !!$                  ELSE   
    198 !!$                     CALL ctl_warn( trim(clinfo), 'Variable '//trim(cdvar)// & 
    199 !!$                        &                         ' is not found in the file '//trim(iom_file(kiomid)%name) ) 
     197      ELSE   
     198         iom_ioipsl_varid = -1   !   variable not found, return error code: -1 
    200199      ENDIF 
    201200      ! 
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/iom_nf90.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    3636   !!---------------------------------------------------------------------- 
    3737   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
    38    !! $Id$ 
     38   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom_nf90.F90,v 1.8 2007/06/29 14:10:50 opalod Exp $ 
    3939   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4040   !!---------------------------------------------------------------------- 
     
    206206            ENDIF 
    207207         ENDIF 
    208 !!$                  ELSE   
    209 !!$                     CALL ctl_warn( trim(clinfo), 'Variable '//trim(cdvar)// & 
    210 !!$                        &                         ' is not found in the file '//trim(iom_file(kiomid)%name) ) 
     208      ELSE   
     209         iom_nf90_varid = -1   !   variable not found, return error code: -1 
    211210      ENDIF 
    212211      ! 
  • branches/dev_001_SBC/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r699 r761  
    3636   !!---------------------------------------------------------------------- 
    3737   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
    38    !! $Id$ 
     38   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/IOM/iom_rstdimg.F90,v 1.9 2007/06/29 14:10:50 opalod Exp $ 
    3939   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    4040   !!---------------------------------------------------------------------- 
     
    106106            irecl8= MAX( kdompar(1,1) * kdompar(2,1) * wp, ( 8*jpnij + 15 ) * 4 ) 
    107107            IF( jpnij > 1 ) THEN 
    108                WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.dimg' 
     108               WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea, '.dimg' 
    109109               cdname = TRIM(cltmp) 
    110110            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.