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 762 – NEMO

Changeset 762


Ignore:
Timestamp:
2007-12-11T12:11:46+01:00 (16 years ago)
Author:
ctlod
Message:

phasing DYN directory, solisl.F90, restart.F90 and zdftke.F90 modules with the trunk, to get changeset 746

Location:
branches/dev_001_SBC/NEMO/OPA_SRC
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r708 r762  
    237237      ! 
    238238      IF( TRIM(cdrw) == 'READ' ) THEN 
    239          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 
     239         IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 
    240240            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   ) 
    241241            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   ) 

  • branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r708 r762  
    449449 
    450450     IF( TRIM(cdrw) == 'READ' ) THEN 
    451         IF( iom_varid( numror, 'gcx' ) > 0 ) THEN 
     451        IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 
    452452! Caution : extra-hallow 
    453453! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 

  • branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_rl.F90

    r699 r762  
    514514     ! 
    515515     IF( TRIM(cdrw) == 'READ' ) THEN 
    516         IF( iom_varid( numror, 'gcx' ) > 0 ) THEN 
     516        IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 
    517517     ! Caution : extra-hallow 
    518518     ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 

  • branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r708 r762  
    626626      ! 
    627627      IF( TRIM(cdrw) == 'READ' ) THEN 
    628          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 
     628         IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 
    629629            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   ) 
    630630            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   ) 
    … …  
    636636            ENDIF 
    637637         ENDIF 
    638          IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN 
     638         IF( iom_varid( numror, 'sshn_b', ldstop = .FALSE. ) > 0 ) THEN 
    639639            CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) )   ! free surface issued 
    640640            CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) )   ! from time-splitting loop 

  • branches/dev_001_SBC/NEMO/OPA_SRC/SOL/solisl.F90

    r699 r762  
    571571      ! Lecture 
    572572      CALL iom_open ( 'islands', inum ) 
    573       ios = iom_varid( inum, 'aisl' ) 
     573      ios = iom_varid( inum, 'aisl', ldstop = .FALSE. ) 
    574574      IF( ios > 0 ) THEN 
    575575 

  • branches/dev_001_SBC/NEMO/OPA_SRC/ZDF/zdftke.F90

    r710 r762  
    799799     IF( TRIM(cdrw) == 'READ' ) THEN 
    800800        IF( ln_rstart ) THEN 
    801            IF( iom_varid( numror, 'en' ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
     801           IF( iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
    802802              CALL iom_get( numror, jpdom_autoglo, 'en', en ) 
    803803           ELSE 
    804               IF(lwp .AND. iom_varid(numror,'en') > 0 ) WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
    805               IF(lwp .AND. ln_rstke ) WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
    806               IF(lwp) WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
    807               IF(lwp) WRITE(numout,*) ' =======             =========' 
     804              IF( lwp .AND. iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 )   & 
     805                 &                       WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
     806              IF( lwp .AND. ln_rstke )   WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
     807              IF( lwp                )   WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
     808              IF( lwp                )   WRITE(numout,*) ' =======             =========' 
    808809              en (:,:,:) = emin * tmask(:,:,:) 
    809810              DO jit = 2, nitke+1 

  • branches/dev_001_SBC/NEMO/OPA_SRC/restart.F90

    r717 r762  
    249249      ENDIF 
    250250      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
    251       IF( iom_varid( numror, 'rdt' ) > 0 )   THEN 
     251      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    252252         CALL iom_get( numror, 'rdt', zrdt ) 
    253253         IF( zrdt /= rdt )   neuler = 0 
    254254      ENDIF 
    255       IF( iom_varid( numror, 'rdttra1' ) > 0 )   THEN 
     255      IF( iom_varid( numror, 'rdttra1', ldstop = .FALSE. ) > 0 )   THEN 
    256256         CALL iom_get( numror, 'rdttra1', zrdttra1 ) 
    257257         IF( zrdttra1 /= rdttra(1) )   neuler = 0 
    … …  
    283283      ENDIF 
    284284 
    285       IF( iom_varid( numror, 'rhd' ) > 0 ) THEN 
     285      IF( iom_varid( numror, 'rhd', ldstop = .FALSE. ) > 0 ) THEN 
    286286         CALL iom_get( numror, jpdom_autoglo, 'rhd' , rhd  ) 
    287287         CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop ) 
    … …  
    290290      ENDIF 
    291291      IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN 
    292          IF( iom_varid( numror, 'gtu' ) > 0 ) THEN 
     292         IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN 
    293293            CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu ) 
    294294            CALL iom_get( numror, jpdom_autoglo, 'gsu' , gsu ) 
Note: See TracChangeset for help on using the changeset viewer.