Changeset 14510
- Timestamp:
- 2021-02-19T17:01:29+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SAS/sbcssm.F90
r14072 r14510 102 102 e3t_m(:,:) = e3t_0(:,:,1) ! vertical scale factor 103 103 ENDIF 104 IF( TRIM(sf_ssm_2d(jf_usp)%clrootname) == 'NOT USED' ) & 105 & sf_ssm_2d(jf_usp)%fnow(:,:,1) = 0._wp 106 IF( TRIM(sf_ssm_2d(jf_vsp)%clrootname) == 'NOT USED' ) & 107 & sf_ssm_2d(jf_vsp)%fnow(:,:,1) = 0._wp 104 108 ssu_m(:,:) = sf_ssm_2d(jf_usp)%fnow(:,:,1) * umask(:,:,1) ! u-velocity 105 109 ssv_m(:,:) = sf_ssm_2d(jf_vsp)%fnow(:,:,1) * vmask(:,:,1) ! v-velocity 106 110 ENDIF 107 111 ! 112 IF( TRIM(sf_ssm_2d(jf_sal)%clrootname) == 'NOT USED' ) & 113 & sf_ssm_2d(jf_sal)%fnow(:,:,1) = 35._wp 114 IF( TRIM(sf_ssm_2d(jf_tem)%clrootname) == 'NOT USED' ) & 115 & CALL eos_fzp( sf_ssm_2d(jf_sal)%fnow(:,:,1), sf_ssm_2d(jf_tem)%fnow(:,:,1) ) 116 IF( TRIM(sf_ssm_2d(jf_ssh)%clrootname) == 'NOT USED' ) & 117 & sf_ssm_2d(jf_ssh)%fnow(:,:,1) = 0._wp 108 118 sst_m(:,:) = sf_ssm_2d(jf_tem)%fnow(:,:,1) * tmask(:,:,1) ! temperature 109 119 sss_m(:,:) = sf_ssm_2d(jf_sal)%fnow(:,:,1) * tmask(:,:,1) ! salinity
Note: See TracChangeset
for help on using the changeset viewer.