Changeset 14510 for NEMO/trunk/src/SAS


Ignore:
Timestamp:
2021-02-19T17:01:29+01:00 (5 months ago)
Author:
gsamson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/SAS/sbcssm.F90

    r14072 r14510  
    102102               e3t_m(:,:) = e3t_0(:,:,1)                                 ! vertical scale factor 
    103103            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 
    104108            ssu_m(:,:) = sf_ssm_2d(jf_usp)%fnow(:,:,1) * umask(:,:,1)    ! u-velocity 
    105109            ssv_m(:,:) = sf_ssm_2d(jf_vsp)%fnow(:,:,1) * vmask(:,:,1)    ! v-velocity 
    106110         ENDIF 
    107111         ! 
     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 
    108118         sst_m(:,:) = sf_ssm_2d(jf_tem)%fnow(:,:,1) * tmask(:,:,1)    ! temperature 
    109119         sss_m(:,:) = sf_ssm_2d(jf_sal)%fnow(:,:,1) * tmask(:,:,1)    ! salinity 
Note: See TracChangeset for help on using the changeset viewer.