Ignore:
Timestamp:
2020-04-15T15:49:42+02:00 (11 months ago)
Author:
gsamson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

    r12592 r12749  
    168168      rn_Esfc =  1._wp / SQRT(rn_cm*rn_ceps) 
    169169      rn_Lsfc = vkarmn * SQRT(SQRT(rn_cm*rn_ceps)) / rn_cm 
    170       
     170 
    171171      IF(lwp) THEN 
    172172         WRITE(numout,*) 
     
    175175         IF(nn_amxl==0) WRITE(numout,*) 'Deardorff 80 length-scale ' 
    176176         IF(nn_amxl==1) WRITE(numout,*) 'Modified Deardorff 80 length-scale ' 
    177          IF(nn_amxl==1) WRITE(numout,*) 'Bougeault and Lacarrere length-scale '       
     177         IF(nn_amxl==2) WRITE(numout,*) 'Bougeault and Lacarrere length-scale '       
    178178         IF(nn_amxl==3) WRITE(numout,*) 'Rodier et al. length-scale '    
    179179         WRITE(numout,*) ' Minimum value of atmospheric TKE           = ',tke_min,' m^2 s^-2' 
Note: See TracChangeset for help on using the changeset viewer.