Changeset 14510 for NEMO/trunk/src/SAS/sbcssm.F90

Timestamp:

2021-02-19T17:01:29+01:00 (3 years ago)

Author:

gsamson

Message:

bugfix for 'NOT USED' case with SAS, does not change SAS sette test; ticket #2614

File:

• NEMO/trunk/src/SAS/sbcssm.F90 (modified) (1 diff)

NEMO/trunk/src/SAS/sbcssm.F90

@@ -102 +102 @@
                e3t_m(:,:) = e3t_0(:,:,1)                                 ! vertical scale factor
             ENDIF
+            IF( TRIM(sf_ssm_2d(jf_usp)%clrootname) == 'NOT USED' ) &
+               &     sf_ssm_2d(jf_usp)%fnow(:,:,1) = 0._wp
+            IF( TRIM(sf_ssm_2d(jf_vsp)%clrootname) == 'NOT USED' ) &
+               &     sf_ssm_2d(jf_vsp)%fnow(:,:,1) = 0._wp
             ssu_m(:,:) = sf_ssm_2d(jf_usp)%fnow(:,:,1) * umask(:,:,1)    ! u-velocity
             ssv_m(:,:) = sf_ssm_2d(jf_vsp)%fnow(:,:,1) * vmask(:,:,1)    ! v-velocity
          ENDIF
          !
+         IF( TRIM(sf_ssm_2d(jf_sal)%clrootname) == 'NOT USED' ) &
+            &     sf_ssm_2d(jf_sal)%fnow(:,:,1) = 35._wp
+         IF( TRIM(sf_ssm_2d(jf_tem)%clrootname) == 'NOT USED' ) &
+            &     CALL eos_fzp( sf_ssm_2d(jf_sal)%fnow(:,:,1), sf_ssm_2d(jf_tem)%fnow(:,:,1) )
+         IF( TRIM(sf_ssm_2d(jf_ssh)%clrootname) == 'NOT USED' ) &
+            &     sf_ssm_2d(jf_ssh)%fnow(:,:,1) = 0._wp
          sst_m(:,:) = sf_ssm_2d(jf_tem)%fnow(:,:,1) * tmask(:,:,1)    ! temperature
          sss_m(:,:) = sf_ssm_2d(jf_sal)%fnow(:,:,1) * tmask(:,:,1)    ! salinity