Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

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/phylmd/Dust/dustemission_mod.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

@@ -223 +223 @@
 
   IF( debutphy ) THEN  
-!       call gather(maskdust,maskdust_glo)
+!       CALL gather(maskdust,maskdust_glo)
 !     !$OMP MASTER
 !     IF (is_mpi_root .AND. is_omp_root) THEN
@@ -349 +349 @@
 
   if (sizedustmin>sizeacclow .or. sizedustmax<sizescohigh) then 
-   call abort_gcm('adaptdustemission', 'Dust range problem',1)
+   CALL abort_gcm('adaptdustemission', 'Dust range problem',1)
   endif
   print *,'FINE DUST BIN: tuning EMISSION factor= ',tuningfactorfine
@@ -393 +393 @@
 !  allocate(itvmean_glo(klon_glo,nbins))
 !  ALLOCATE(emisbinlocalmean2_glo(klon_glo,nbins))
-!  call gather(itv2,itv2_glo)
-!  call gather(itvmean,itvmean_glo)
+!  CALL gather(itv2,itv2_glo)
+!  CALL gather(itvmean,itvmean_glo)
 !!$OMP MASTER
 !  IF (is_mpi_root .AND. is_omp_root) THEN
@@ -486 +486 @@
    enddo
    counter1=0
-!   call gather(emisbinlocalmean2,emisbinlocalmean2_glo)
+!   CALL gather(emisbinlocalmean2,emisbinlocalmean2_glo)
 !!$OMP MASTER
 !   IF (is_mpi_root .AND. is_omp_root) THEN
@@ -747 +747 @@
 !$OMP BARRIER
 !print *,'JEOK10',mpi_rank,omp_rank
-  call bcast(solspe)
+  CALL bcast(solspe)
 ! Calcul de la distribution en taille des particules de Dust
 ! Elle depend du nombre de classe des particules nclass.
@@ -951 +951 @@
 ! DO nb=1,nbinsHR
 !     vdHR(nb)=vdout(nb)
-!!  WRITE(18,*),binsHR(nb),vdHR(nb)
+!!  WRITE(18,*) binsHR(nb),vdHR(nb)
 !  END DO
 
@@ -1083 +1083 @@
       DO k=1,ndistb
         DO nb=1,nbins
-            write(15001,*),k,nb,massfrac(k,nb)
+            write(15001,*) k,nb,massfrac(k,nb)
         ENDDO
       ENDDO
@@ -1384 +1384 @@
 !      print*,'ustarsalt = ',ustarsalt,'dsmin=',dsmin,'dsmax=',dsmax
 ! dichotomy
-         call def_dichotomy(sizeclass,nclass,1,ncl,dsmin,ideb)
+         CALL def_dichotomy(sizeclass,nclass,1,ncl,dsmin,ideb)
    !      print*,'ideb = ',ideb
-         call def_dichotomy(sizeclass,nclass,ideb,ncl,dsmax,ifin)
+         CALL def_dichotomy(sizeclass,nclass,ideb,ncl,dsmax,ifin)
    !      print*,'ifin = ',ifin
 ! readaptation of large sizes particles