Changeset 5260 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
- Timestamp:
- 2015-05-12T12:37:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r4624 r5260 100 100 & cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta, & 101 101 & ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 102 #if ( defined key_lim2 || defined key_lim3 )103 102 & cn_ice_lim, nn_ice_lim_dta, & 104 #endif 103 & rn_ice_tem, rn_ice_sal, rn_ice_age, & 105 104 & ln_vol, nn_volctl, nn_rimwidth 106 105 !! … … 359 358 ENDIF 360 359 IF(lwp) WRITE(numout,*) 360 IF(lwp) WRITE(numout,*) ' tem of bdy sea-ice = ', rn_ice_tem(ib_bdy) 361 IF(lwp) WRITE(numout,*) ' sal of bdy sea-ice = ', rn_ice_sal(ib_bdy) 362 IF(lwp) WRITE(numout,*) ' age of bdy sea-ice = ', rn_ice_age(ib_bdy) 361 363 #endif 362 364 … … 1152 1154 END DO 1153 1155 1154 tmask_i (:,:) = tmask(:,:,1) * tmask_i(:,:)1156 tmask_i (:,:) = ssmask(:,:) * tmask_i(:,:) 1155 1157 1156 1158 ENDIF ! ln_mask_file=.TRUE. 1157 1159 1158 bdytmask(:,:) = tmask(:,:,1)1160 bdytmask(:,:) = ssmask(:,:) 1159 1161 IF( .not. ln_mask_file ) THEN 1160 1162 ! If .not. ln_mask_file then we need to derive mask on U and V grid
Note: See TracChangeset
for help on using the changeset viewer.