Changeset 683 for trunk/NEMO/OPA_SRC/DYN
- Timestamp:
- 2007-06-29T18:37:27+02: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
r657 r683 40 40 !!---------------------------------------------------------------------- 41 41 !! OPA 9.0 , LOCEAN-IPSL (2005) 42 !! $Header $42 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_exp.F90,v 1.9 2007/06/05 10:38:27 opalod Exp $ 43 43 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 44 44 !!---------------------------------------------------------------------- … … 238 238 IF( TRIM(cdrw) == 'READ' ) THEN 239 239 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 240 CALL iom_get( numror, jpdom_ local, 'sshb' , sshb(:,:) )241 CALL iom_get( numror, jpdom_ local, 'sshn' , sshn(:,:) )240 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 241 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) 242 242 IF( neuler == 0 ) sshb(:,:) = sshn(:,:) 243 243 ELSE -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r661 r683 59 59 !!---------------------------------------------------------------------- 60 60 !! OPA 9.0 , LOCEAN-IPSL (2005) 61 !! $Header $61 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_flt.F90,v 1.14 2007/06/05 10:38:27 opalod Exp $ 62 62 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 63 63 !!---------------------------------------------------------------------- … … 453 453 ! Caution : extra-hallow 454 454 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 455 CALL iom_get( numror, jpdom_ local, 'gcx' , gcx (1:jpi,1:jpj) )456 CALL iom_get( numror, jpdom_ local, 'gcxb', gcxb(1:jpi,1:jpj) )457 CALL iom_get( numror, jpdom_ local, 'sshb', sshb(:,:) )458 CALL iom_get( numror, jpdom_ local, 'sshn', sshn(:,:) )455 CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) ) 456 CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) ) 457 CALL iom_get( numror, jpdom_autoglo, 'sshb', sshb(:,:) ) 458 CALL iom_get( numror, jpdom_autoglo, 'sshn', sshn(:,:) ) 459 459 IF( neuler == 0 ) THEN 460 460 sshb(:,:) = sshn(:,:) -
trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
r508 r683 56 56 !!---------------------------------------------------------------------- 57 57 !! OPA 9.0 , LOCEAN-IPSL (2005) 58 !! $Header $58 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_rl.F90,v 1.11 2007/06/05 10:38:27 opalod Exp $ 59 59 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 60 60 !!---------------------------------------------------------------------- … … 517 517 ! Caution : extra-hallow 518 518 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 519 CALL iom_get( numror, jpdom_ local, 'gcx' , gcx (1:jpi,1:jpj) )520 CALL iom_get( numror, jpdom_ local, 'gcxb', gcxb(1:jpi,1:jpj) )521 CALL iom_get( numror, jpdom_ local, 'bsfb', bsfb(:,:) )522 CALL iom_get( numror, jpdom_ local, 'bsfn', bsfn(:,:) )523 CALL iom_get( numror, jpdom_ local, 'bsfd', bsfd(:,:) )519 CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) ) 520 CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) ) 521 CALL iom_get( numror, jpdom_autoglo, 'bsfb', bsfb(:,:) ) 522 CALL iom_get( numror, jpdom_autoglo, 'bsfn', bsfn(:,:) ) 523 CALL iom_get( numror, jpdom_autoglo, 'bsfd', bsfd(:,:) ) 524 524 IF( neuler == 0 ) THEN 525 525 gcxb(:,:) = gcx (:,:) -
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.