Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1Dconv.h

Timestamp:

Jul 23, 2024, 8:22:55 AM (3 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1Dconv.h (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1Dconv.h

@@ -187 +187 @@
           open(99,FILE=file_fordat,FORM='UNFORMATTED',                        &
      &             ACCESS='DIRECT',RECL=8)
-          call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes                &
+          CALL rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes                &
      &                  ,hu_mes,hv_mes,hthturb_mes,hqturb_mes                 &
      &                  ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
@@ -333 +333 @@
       aaa=spaces(aaa,1)
          print*,'aaa',aaa
-      call getsch(aaa,' ',' ',5,atemps,nch)
+      CALL getsch(aaa,' ',' ',5,atemps,nch)
          print*,'atemps est',atemps
         atemps=atemps(1:nch-2)
@@ -340 +340 @@
         dt=imn*60
          print*,'le pas de temps dt',dt
-      call getsch(aaa,' ',' ',2,apasmax,nch)
+      CALL getsch(aaa,' ',' ',2,apasmax,nch)
         apasmax=apasmax(1:nch)
         read(apasmax,*) ipa
@@ -365 +365 @@
           IF (Turb_fcg) icomp1 = icomp1 + nblvlm*2
           icompt = icomp1*(in-1)
-          call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes              &
+          CALL rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes              &
      &                   ,hu_mes,hv_mes,hthturb_mes,hqturb_mes              &
      &                   ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
@@ -518 +518 @@
 !---------------------------------------------------------------------
 ! pression au milieu des couches du gcm dans la physiq
-! (SB: remplace le call conv_lipress_gcm(playgcm) )
+! (SB: remplace le CALL conv_lipress_gcm(playgcm) )
 !---------------------------------------------------------------------
 
@@ -532 +532 @@
 !----------------------------------------------------------------------
 
-      call mesolupbis(file_forctl)
+      CALL mesolupbis(file_forctl)
 
       print*,'la valeur de nblvlm est:',nblvlm
@@ -542 +542 @@
 !----------------------------------------------------------------------
 
-      call corresbis(psolgcm)
+      CALL corresbis(psolgcm)
 
 !---------------------------------------------------------
@@ -603 +603 @@
  2000  format (a80)
        aaa=spaces(aaa,1)
-       call getsch(aaa,' ',' ',2,anblvl,nch)
+       CALL getsch(aaa,' ',' ',2,anblvl,nch)
          read(anblvl,*) nblvlm