Changeset 3004 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Jul 21, 2023, 7:26:15 AM (18 months ago)

Author:

emillour

Message:

Mars PCM:
Some code cleanup. Remove obsolete "comg1d.h" and "writeg1d.F" (were used to
specifically output for Grads in 1D).
Also turned lwi and lwflux into modules while at it.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -81 +81 @@
 !#include "control.h"
       include "netcdf.inc"
-      include "comg1d.h"
 !#include "advtrac.h"
 
@@ -829 +828 @@
       endif 
 
-
-c    Initialization for GRADS outputs in "g1d.dat" and "g1d.ctl"
-c    ----------------------------------------------------------------
-c    (output done in "writeg1d", typically called by "physiq.F")
-
-        g1d_nlayer=nlayer
-        g1d_nomfich='g1d.dat'
-        g1d_unitfich=40
-        g1d_nomctl='g1d.ctl'
-        g1d_unitctl=41
-        g1d_premier=.true.
-        g2d_premier=.true.
-
 c  Write a "startfi" file
 c  --------------------
@@ -994 +980 @@
       ENDIF
 
-c    ========================================================
-c    OUTPUTS
-c    ========================================================
-
-c    finalize and close grads files "g1d.dat" and "g1d.ctl"
-
-c        CALL endg1d(1,nlayer,zphi/(g*1000.),ndt)
-        CALL endg1d(1,nlayer,zlay/1000.,ndt)
-
       write(*,*) "testphys1d: Everything is cool."