Changeset 3739 for trunk/LMDZ.MARS/libf/phymars/orosetup.F90

Timestamp:

Apr 26, 2025, 8:20:13 PM (7 weeks ago)

Author:

emillour

Message:

Mars PCM:
Code tidying: put routines in modules, remove useless "return" statements, etc.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/orosetup.F90 (modified) (7 diffs)

trunk/LMDZ.MARS/libf/phymars/orosetup.F90

@@ +1 @@
+MODULE orosetup_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
 SUBROUTINE OROSETUP( ngrid, nlayer, ktest, pplev, pplay, pu, pv, pt, zgeom, &
             pvar,pthe, pgam,                                       &
@@ -113 +119 @@
 ! 1. INITIALIZATION
 !--------------------------------------------------------------------------------
-! 100  CONTINUE  ! continue tag without source, maybe need delete in future
 
       !* 1.1 COMPUTATIONAL CONSTANTS
       kidia=1
       kfdia=ngrid
-! 110  CONTINUE  ! continue tag without source, maybe need delete in future
       ILEVM1=nlayer-1
       ILEVM2=nlayer-2
@@ -129 +133 @@
 ! 2. Compute all the critical levels and the coeffecients of anisotropy
 !-----------------------------------------------------------------------------------------------------
-! 200  CONTINUE ! continue tag without source, maybe need delete in future
+
       ! 2.1 Define low level wind, project winds in plane of low level wind,
       ! determine sector in which to take the variance and set indicator for critical levels. 
@@ -209 +213 @@
       enddo      
 
-! 210  CONTINUE ! continue tag without source, maybe need delete in future
       ! Initialize various arrays for the following computes
       DO JL=kidia,kfdia
@@ -329 +332 @@
 
       ! 2.2 Brunt-vaisala frequency and density at half levels 
- 220  CONTINUE ! continue tag without source, maybe need delete in future
  
       DO JK=ilevh,nlayer
@@ -366 +368 @@
 
       ! 2.3 Mean flow richardson number and critical height for proude layer    
-! 230  CONTINUE ! continue tag without source, maybe need delete in future
 
       DO JK=2,nlayer
@@ -471 +472 @@
       end DO
 
-! 260  CONTINUE  ! continue tag without source, maybe need delete in future
-
-  RETURN
-END
+END SUBROUTINE OROSETUP
+
+END MODULE orosetup_mod