Changeset 746 for trunk/NEMO/OPA_SRC/DYN
- Timestamp:
- 2007-12-06T18:03:18+01:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DYN
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90
r719 r746 237 237 ! 238 238 IF( TRIM(cdrw) == 'READ' ) THEN 239 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN239 IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 240 240 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 241 241 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r719 r746 450 450 451 451 IF( TRIM(cdrw) == 'READ' ) THEN 452 IF( iom_varid( numror, 'gcx' ) > 0 ) THEN452 IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 453 453 ! Caution : extra-hallow 454 454 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) -
trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
r719 r746 514 514 ! 515 515 IF( TRIM(cdrw) == 'READ' ) THEN 516 IF( iom_varid( numror, 'gcx' ) > 0 ) THEN516 IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 517 517 ! Caution : extra-hallow 518 518 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r719 r746 626 626 ! 627 627 IF( TRIM(cdrw) == 'READ' ) THEN 628 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN628 IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 629 629 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 630 630 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) … … 636 636 ENDIF 637 637 ENDIF 638 IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN638 IF( iom_varid( numror, 'sshn_b', ldstop = .FALSE. ) > 0 ) THEN 639 639 CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) ) ! free surface issued 640 640 CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) ) ! from time-splitting loop
Note: See TracChangeset
for help on using the changeset viewer.