Changeset 2311 for trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F

Timestamp:

May 6, 2020, 1:46:00 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Code tidying: use getin_p() instead of getin() and use "call abort_physic"
instead of "stop" or "call abort".
EM

File:

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

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

@@ -13 +13 @@
      &                nq,tau,tauscaling,rdust,rice,nuice,
      &                rsedcloud,rhocloud,totcloudfrac)
-      USE ioipsl_getincom, ONLY: getin
+      USE ioipsl_getin_p_mod, ONLY : getin_p
       USE updaterad, ONLY: updaterdust, updaterice_micro,
      &                     updaterice_typ
@@ -132 +132 @@
            write(*,*) 'stop in watercloud (nq.gt.nqmx)!'
            write(*,*) 'nq=',nq,' nqmx=',nqmx
-           stop
+           call abort_physic("watercloud","nq.gt.nqmx",1)
         endif
          
@@ -144 +144 @@
         imicro = 30
 #endif
-        call getin("imicro",imicro)
+        call getin_p("imicro",imicro)
         write(*,*)"watercloud: imicro = ",imicro