Changeset 3901 for trunk/LMDZ.MARS/libf/phymars/callradite_mod.F

Timestamp:

Aug 20, 2025, 4:25:12 PM (2 days ago)

Author:

emillour

Message:

Mars PCM:
Some code tidying:

• turn aeroptproperties, albedocaps, cvmgp and convadj into modules
• remove useless check in callradite
• clean module vlz_fi (remove obsolete #ifdef CRAY cpp alternatives)
• remove function cvmgp since it was only called under #ifdef CRAY in vlz_fi

EM

File:

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

trunk/LMDZ.MARS/libf/phymars/callradite_mod.F

@@ -17 +17 @@
       use aeropacity_mod, only: aeropacity
       use updatereffrad_mod, only: updatereffrad
+      use aeroptproperties_mod, only: aeroptproperties
       use dimradmars_mod, only: ndomainsz, nflev, nsun, nir
       use dimradmars_mod, only: naerkind, name_iaer,
@@ -288 +289 @@
 c   ---------------------
 
-      real zco2   ! volume fraction of CO2 in Mars atmosphere
-!$OMP THREADPRIVATE(zco2)
-      DATA zco2/0.95/
-      SAVE zco2
-
-      LOGICAL firstcall
+      LOGICAL,SAVE :: firstcall = .true.
 !$OMP THREADPRIVATE(firstcall)
-      DATA firstcall/.true./
-      SAVE firstcall
 
 
@@ -413 +407 @@
          
 !         CALL SULW ! this step is now done in ini_yomlw_h
-
-         if (ngrid .EQ. 1) then
-           if (ndomainsz .NE. 1) then
-             print*
-             print*,'ATTENTION !!!'
-             print*,'pour tourner en 1D, '
-             print*,'fixer ndomainsz=1 dans phymars/dimradmars_h'
-             print*
-             call exit(1)
-           endif
-         endif
 
          firstcall=.false.