- Timestamp:
- 2015-11-06T11:42:35+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r5407 r5866 88 88 ssu_m(:,:) = sf_ssm_3d(jf_usp)%fnow(:,:,1) * umask(:,:,1) ! u-velocity 89 89 ssv_m(:,:) = sf_ssm_3d(jf_vsp)%fnow(:,:,1) * vmask(:,:,1) ! v-velocity 90 IF( lk_vvl) e3t_m(:,:) = sf_ssm_3d(jf_e3t)%fnow(:,:,1) * tmask(:,:,1) ! v-velocity90 IF( .NOT.ln_linssh ) e3t_m(:,:) = sf_ssm_3d(jf_e3t)%fnow(:,:,1) * tmask(:,:,1) ! v-velocity 91 91 ELSE 92 92 ssu_m(:,:) = sf_ssm_2d(jf_usp)%fnow(:,:,1) * umask(:,:,1) ! u-velocity 93 93 ssv_m(:,:) = sf_ssm_2d(jf_vsp)%fnow(:,:,1) * vmask(:,:,1) ! v-velocity 94 IF( lk_vvl) e3t_m(:,:) = sf_ssm_2d(jf_e3t)%fnow(:,:,1) * tmask(:,:,1) ! v-velocity94 IF( .NOT.ln_linssh ) e3t_m(:,:) = sf_ssm_2d(jf_e3t)%fnow(:,:,1) * tmask(:,:,1) ! v-velocity 95 95 ENDIF 96 96 ! … … 115 115 CALL prt_ctl(tab2d_1=ssv_m, clinfo1=' ssv_m - : ', mask1=vmask, ovlap=1 ) 116 116 CALL prt_ctl(tab2d_1=ssh_m, clinfo1=' ssh_m - : ', mask1=tmask, ovlap=1 ) 117 IF( lk_vvl) CALL prt_ctl(tab2d_1=ssh_m, clinfo1=' e3t_m - : ', mask1=tmask, ovlap=1 )118 IF( ln_read_frq ) CALL prt_ctl(tab2d_1=frq_m, clinfo1=' frq_m - : ', mask1=tmask, ovlap=1 )117 IF( .NOT.ln_linssh ) CALL prt_ctl(tab2d_1=ssh_m, clinfo1=' e3t_m - : ', mask1=tmask, ovlap=1 ) 118 IF( ln_read_frq ) CALL prt_ctl(tab2d_1=frq_m, clinfo1=' frq_m - : ', mask1=tmask, ovlap=1 ) 119 119 ENDIF 120 120 ! … … 125 125 CALL iom_put( 'sss_m', sss_m ) 126 126 CALL iom_put( 'ssh_m', ssh_m ) 127 IF( lk_vvl) CALL iom_put( 'e3t_m', e3t_m )128 IF( ln_read_frq ) CALL iom_put( 'frq_m', frq_m )127 IF( .NOT.ln_linssh ) CALL iom_put( 'e3t_m', e3t_m ) 128 IF( ln_read_frq ) CALL iom_put( 'frq_m', frq_m ) 129 129 ENDIF 130 130 ! … … 216 216 IF( ln_3d_uve ) THEN 217 217 jf_usp = 1 ; jf_vsp = 2 ; jf_e3t = 3 ! define 3D fields index 218 nfld_3d = 2 + COUNT( (/ lk_vvl/) ) ! number of 3D fields to read218 nfld_3d = 2 + COUNT( (/.NOT.ln_linssh/) ) ! number of 3D fields to read 219 219 nfld_2d = 3 + COUNT( (/ln_read_frq/) ) ! number of 2D fields to read 220 220 ELSE 221 jf_usp = 4 ; jf_vsp = 5 ; jf_e3t = 6 ; jf_frq = 6 + COUNT( (/ lk_vvl/) ) ! update 2D fields index221 jf_usp = 4 ; jf_vsp = 5 ; jf_e3t = 6 ; jf_frq = 6 + COUNT( (/.NOT.ln_linssh/) ) ! update 2D fields index 222 222 nfld_3d = 0 ! no 3D fields to read 223 nfld_2d = 5 + COUNT( (/ lk_vvl/) ) + COUNT( (/ln_read_frq/) ) ! number of 2D fields to read223 nfld_2d = 5 + COUNT( (/.NOT.ln_linssh/) ) + COUNT( (/ln_read_frq/) ) ! number of 2D fields to read 224 224 ENDIF 225 225 … … 231 231 slf_3d(jf_usp) = sn_usp 232 232 slf_3d(jf_vsp) = sn_vsp 233 IF( lk_vvl) slf_3d(jf_e3t) = sn_e3t233 IF( .NOT.ln_linssh ) slf_3d(jf_e3t) = sn_e3t 234 234 ENDIF 235 235 … … 243 243 IF( .NOT. ln_3d_uve ) THEN 244 244 slf_2d(jf_usp) = sn_usp ; slf_2d(jf_vsp) = sn_vsp 245 IF( lk_vvl) slf_2d(jf_e3t) = sn_e3t245 IF( .NOT.ln_linssh ) slf_2d(jf_e3t) = sn_e3t 246 246 ENDIF 247 247 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.