Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initfluxsto_p.F

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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/dyn3dmem/initfluxsto_p.F (modified) (13 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initfluxsto_p.F

@@ -123 +123 @@
       dhe=(/ 0,0 /)
 
-      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+      CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe,
      .                 'box',dynu_domain_id)
        
-      call histbeg(trim(infile),iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+      CALL histbeg(trim(infile),iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
      .             1, iip1, 1, jjn, tau0, zjulian, tstep, uhoriid,
      .             fileid,dynu_domain_id)
@@ -156 +156 @@
       dhe=(/ 0,0 /)
 
-      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+      CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe,
      .                 'box',dynv_domain_id)
      
-      call histbeg('fluxstokev',iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+      CALL histbeg('fluxstokev',iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
      .             1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid,
      .             filevid,dynv_domain_id)
@@ -167 +167 @@
       if (mpi_rank==0) then
           
-        call histbeg('defstoke.nc', 1, rl, 1, rl,
+        CALL histbeg('defstoke.nc', 1, rl, 1, rl,
      .               1, 1, 1, 1,
      .               tau0, zjulian, tstep, dhoriid, filedid)
@@ -186 +186 @@
       jjn=jj_nb
 
-      call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
+      CALL histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
      .             'scalar','Grille points scalaires', thoriid)
         
@@ -192 +192 @@
 C  Appel a histvert pour la grille verticale
 C
-      call histvert(fileid, 'sig_s', 'Niveaux sigma',
+      CALL histvert(fileid, 'sig_s', 'Niveaux sigma',
      . 'sigma_level',
      .              llm, nivsigs, zvertiid)
 C Pour le fichier V
-      call histvert(filevid, 'sig_s', 'Niveaux sigma',
+      CALL histvert(filevid, 'sig_s', 'Niveaux sigma',
      .  'sigma_level',
      .              llm, nivsigs, zvertiid)
@@ -202 +202 @@
       if (mpi_rank==0) then
          nivd(1) = 1
-         call histvert(filedid, 'sig_s', 'Niveaux sigma',
+         CALL histvert(filedid, 'sig_s', 'Niveaux sigma',
      .        'sigma_level',
      .        1, nivd, dvertiid)
@@ -235 +235 @@
 C Masse 
 C
-      call histdef(fileid, 'masse', 'Masse', 'kg',
+      CALL histdef(fileid, 'masse', 'Masse', 'kg',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -241 +241 @@
 C  Pbaru 
 C
-      call histdef(fileid, 'pbaru', 'flx de masse zonal', 'kg m/s',
+      CALL histdef(fileid, 'pbaru', 'flx de masse zonal', 'kg m/s',
      .             iip1, jjn, uhoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -250 +250 @@
       if (pole_sud) jjn=jj_nb-1
       
-      call histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s',
+      CALL histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s',
      .             iip1, jjn, vhoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -257 +257 @@
 C
       if (pole_sud) jjn=jj_nb
-      call histdef(fileid, 'w', 'flx de masse vert', 'kg m/s',
+      CALL histdef(fileid, 'w', 'flx de masse vert', 'kg m/s',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -264 +264 @@
 C  Temperature potentielle
 C
-      call histdef(fileid, 'teta', 'temperature potentielle', '-',
+      CALL histdef(fileid, 'teta', 'temperature potentielle', '-',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -272 +272 @@
 C Geopotentiel 
 C
-      call histdef(fileid, 'phi', 'geopotentiel instantane', '-',
+      CALL histdef(fileid, 'phi', 'geopotentiel instantane', '-',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
      .             32, 'inst(X)', t_ops, t_wrt)
@@ -278 +278 @@
 C  Fin
 C
-      call histend(fileid)
-      call histend(filevid)
-      if (mpi_rank==0) call histend(filedid)
+      CALL histend(fileid)
+      CALL histend(filevid)
+      if (mpi_rank==0) CALL histend(filedid)
       if (ok_sync) then
-        call histsync(fileid)
-        call histsync(filevid)
-        if (mpi_rank==0) call histsync(filedid)
+        CALL histsync(fileid)
+        CALL histsync(filevid)
+        if (mpi_rank==0) CALL histsync(filedid)
       endif