Changeset 683 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2007-06-29T18:37:27+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r661 r683 51 51 !!---------------------------------------------------------------------- 52 52 !! OPA 9.0 , LOCEAN-IPSL (2005) 53 !! $Header $53 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_ts.F90,v 1.16 2007/06/05 10:38:27 opalod Exp $ 54 54 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 55 55 !!---------------------------------------------------------------------- … … 627 627 IF( TRIM(cdrw) == 'READ' ) THEN 628 628 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 629 CALL iom_get( numror, jpdom_ local, 'sshb' , sshb(:,:) )630 CALL iom_get( numror, jpdom_ local, 'sshn' , sshn(:,:) )629 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 630 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) 631 631 IF( neuler == 0 ) sshb(:,:) = sshn(:,:) 632 632 ELSE … … 637 637 ENDIF 638 638 IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN 639 CALL iom_get( numror, jpdom_ local, 'sshb_b', sshb_b(:,:) ) ! free surface issued640 CALL iom_get( numror, jpdom_ local, 'sshn_b', sshn_b(:,:) ) ! from time-splitting loop641 CALL iom_get( numror, jpdom_ local, 'un_b' , un_b (:,:) ) ! horizontal transports issued642 CALL iom_get( numror, jpdom_ local, 'vn_b' , vn_b (:,:) ) ! from barotropic loop639 CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) ) ! free surface issued 640 CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) ) ! from time-splitting loop 641 CALL iom_get( numror, jpdom_autoglo, 'un_b' , un_b (:,:) ) ! horizontal transports issued 642 CALL iom_get( numror, jpdom_autoglo, 'vn_b' , vn_b (:,:) ) ! from barotropic loop 643 643 IF( neuler == 0 ) sshb_b(:,:) = sshn_b(:,:) 644 644 ELSE
Note: See TracChangeset
for help on using the changeset viewer.