Changeset 12749 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

Timestamp:

2020-04-15T15:49:42+02:00 (4 years ago)

Author:

gsamson

Message:

ABL code cleaning and small bugfixes; modify shared and ORCA2_ICE_ABL cfgs files accordingly (ticket #2419)

File:

• NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

@@ -168 +168 @@
       rn_Esfc =  1._wp / SQRT(rn_cm*rn_ceps)
       rn_Lsfc = vkarmn * SQRT(SQRT(rn_cm*rn_ceps)) / rn_cm
-     
+
       IF(lwp) THEN
          WRITE(numout,*)
@@ -175 +175 @@
          IF(nn_amxl==0) WRITE(numout,*) 'Deardorff 80 length-scale '
          IF(nn_amxl==1) WRITE(numout,*) 'Modified Deardorff 80 length-scale '
-         IF(nn_amxl==1) WRITE(numout,*) 'Bougeault and Lacarrere length-scale '      
+         IF(nn_amxl==2) WRITE(numout,*) 'Bougeault and Lacarrere length-scale '      
          IF(nn_amxl==3) WRITE(numout,*) 'Rodier et al. length-scale '   
          WRITE(numout,*) ' Minimum value of atmospheric TKE           = ',tke_min,' m^2 s^-2'