Changeset 899 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2008-04-22T18:15:19+02:00 (16 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/p4zsed.F
r728 r899 296 296 DO jj=1,jpj 297 297 DO ji=1,jpi 298 #if ! defined key_c fg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )298 #if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 299 299 zfact=nitrpot(ji,jj,jk)*denitot/nitrpottot 300 300 #else -
trunk/NEMO/TOP_SRC/TRP/trcbbl.F90
r719 r899 5 5 !! layer scheme 6 6 !!============================================================================== 7 #if defined key_passivetrc && ( defined key_trcbbl_dif || defined key_trcbbl_adv ) && ! defined key_c fg_1d7 #if defined key_passivetrc && ( defined key_trcbbl_dif || defined key_trcbbl_adv ) && ! defined key_c1d 8 8 !!---------------------------------------------------------------------- 9 9 !! 'key_trcbbl_dif' or diffusive bottom boundary layer -
trunk/NEMO/TOP_SRC/trc.F90
r719 r899 194 194 !! 1D configuration 195 195 !! -------------------------------------------------- 196 #if defined key_cf g_1d196 #if defined key_cf1d 197 197 LOGICAL, PARAMETER :: lk_trccfg_1d = .TRUE. !: 1D pass. tracer configuration flag 198 198 #else -
trunk/NEMO/TOP_SRC/trcrst.F90
r794 r899 110 110 111 111 #if defined key_trc_pisces 112 # if ! defined key_c fg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )112 # if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 113 113 REAL(wp) :: ztrasum 114 114 # endif … … 218 218 #if defined key_trc_pisces 219 219 220 #if ! defined key_c fg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )220 #if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 221 221 222 222 ztrasum = 0.
Note: See TracChangeset
for help on using the changeset viewer.