Changeset 6153 for LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/physiq_mod.F90

Timestamp:

Apr 3, 2026, 11:21:47 AM (31 hours ago)

Author:

Sebastien Nguyen

Message:

implementation of isotopes in snow according to C.Agosta N.Dutrievoz and S.Sibin

File:

• LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/physiq_mod.F90

@@ -1491 +1491 @@
        WRITE(lunout,*) '================================================='
        CALL phys_local_var_init
-       WRITE(lunout,*) 'MAXVAL(runoff_diag(:))=',MAXVAL(runoff_diag)
+!SN a enlever       WRITE(lunout,*) 'MAXVAL(runoff_diag(:))=',MAXVAL(runoff_diag)
        !
        !     appel a la lecture du run.def physique
@@ -1811 +1811 @@
 
        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-       !! Un petit travail \`a faire ici.
+       !! Un petit travail a faire ici.
        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -3690 +3690 @@
 !!SN    ENDIF
 !!SN    zx_ajustq = .FALSE.
-!!SN    IF (iflag_con.EQ.2) zx_ajustq=.TRUE.
+!!SN    IF (iflag_con.EQ.2) zx_ajustq=.TRUE. !SN ISOTOPES PAS PREVUS !
 !!SN    IF (zx_ajustq) THEN
 !!SN       DO i = 1, klon