Changeset 3900 for LMDZ6/trunk/libf/phylmd/create_etat0_unstruct.F90

Timestamp:

May 17, 2021, 3:35:58 PM (3 years ago)

Author:

evignon

Message:

Commission de la nouvelle interface LMDZ-SISVAT
la prochaine commission consistera a supprimer l'ancien repertoire sisvat
et a faire un peu de nettoyage.

File:

• LMDZ6/trunk/libf/phylmd/create_etat0_unstruct.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/create_etat0_unstruct.F90

@@ -209 +209 @@
     z0m(:,is_oce) = rugmer(:)
 
-   z0m(:,is_ter) = MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
-   z0m(:,is_lic) = MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
+   z0m(:,is_ter) = 0.01 ! MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
+   z0m(:,is_lic) = 0.001 !MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
 
    z0m(:,is_sic) = 0.001