Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.F (modified) (21 diffs)

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

@@ -1 @@
-! 
+
 ! $Id$
-!
+
 c
 c
@@ -256 +256 @@
 !$OMP MASTER
       if (firstcall) then
-!      
+
 !      ALLOCATE(p(ijb_u:ije_u,llmp1))
 !      ALLOCATE(pks(ijb_u:ije_u))
@@ -579 +579 @@
 !         call Register_SwapFieldHallo(finvmaold,finvmaold,ip1jmp1,llm,
 !     &                                jj_Nb_caldyn,0,0,TestRequest)
-! 
+
 !        do j=1,nqtot
 !         call Register_SwapFieldHallo(q(:,:,j),q(:,:,j),ip1jmp1,llm,
 !     &                                jj_nb_caldyn,0,0,TestRequest)
 !        enddo
-!
+
 !         call Set_Distrib(distrib_caldyn)
 !         call SendRequest(TestRequest)
@@ -864 +864 @@
 
 ! c  Diagnostique de conservation de l'energie : initialisation
-!  
+
 ! c-jld
 ! c$OMP BARRIER
@@ -879 +879 @@
 ! #endif
 !         call SetTag(Request_physic,800)
-!         
+
 !         call Register_SwapField_u(ucov,ucov,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_v(vcov,vcov,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
@@ -888 +888 @@
 !         call Register_SwapField_u(teta,teta,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(masse,masse,distrib_physic,
 !      *                            Request_physic,up=1,down=2)
@@ -894 +894 @@
 !         call Register_SwapField_u(p,p,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(pk,pk,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(phis,phis,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(phi,phi,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(w,w,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call Register_SwapField_u(q,q,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
@@ -912 +912 @@
 !         call Register_SwapField_u(flxw,flxw,distrib_physic,
 !      *                            Request_physic,up=2,down=2)
-!         
+
 !         call SendRequest(Request_Physic)
 ! c$OMP BARRIER
@@ -921 +921 @@
 !         call Set_Distrib(distrib_Physic)
 !         call VTe(VThallo)
-!         
+
 !         call VTb(VTphysiq)
 ! c$OMP END MASTER
@@ -1080 +1080 @@
 !         call Register_SwapField_u(ucov,ucov,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_v(vcov,vcov,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(teta,teta,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(masse,masse,
 !      *                               distrib_caldyn,Request_physic)
@@ -1092 +1092 @@
 !         call Register_SwapField_u(p,p,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(pk,pk,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(phis,phis,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(phi,phi,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call Register_SwapField_u(w,w,
 !      *                               distrib_caldyn,Request_physic)
@@ -1107 +1107 @@
 !         call Register_SwapField_u(q,q,
 !      *                               distrib_caldyn,Request_physic)
-!         
+
 !         call SendRequest(Request_Physic)
 ! c$OMP BARRIER
@@ -1226 +1226 @@
 !c$OMP MASTER
 !        call suspend_timer(timer_caldyn)
-!        
+
 !c       print*,'Entree dans la dissipation : Iteration No ',true_itau
 !c   calcul de l'energie cinetique avant dissipation
@@ -1277 +1277 @@
 !        call WriteField_u('dtetadis',dtetadis)
 !#endif
-! 
+
 !!      CALL FTRACE_REGION_END("dissip")
-!         
+
 !        ijb=ij_begin
 !        ije=ij_end
@@ -1318 +1318 @@
 !            call covcont_loc(llm,ucov,vcov,ucont,vcont)
 !            call enercin_loc(vcov,ucov,vcont,ucont,ecin)
-!            
+
 !            ijb=ij_begin
 !            ije=ij_end
@@ -1349 +1349 @@
 !        ijb=ij_begin
 !        ije=ij_end
-!         
+
 !        if (pole_nord) then
 !c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -1369 +1369 @@
 !          ENDDO
 !            tpn  = SSUM(iim,tppn,1)/apoln
-!  
+
 !          DO ij = 1, iip1
 !            ps(  ij    ) = tpn
@@ -1375 +1375 @@
 !c$OMP END MASTER
 !        endif
-!        
+
 !        if (pole_sud) then
 !c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -1395 +1395 @@
 !          ENDDO
 !            tps  = SSUM(iim,tpps,1)/apols
-!  
+
 !          DO ij = 1, iip1
 !            ps(ij+ip1jm) = tps
@@ -1408 +1408 @@
 
 !        call stop_timer(timer_dissip)
-!        
+
 !        call VTb(VThallo)
 !c$OMP END MASTER
@@ -1738 +1738 @@
 !             iday = day_ini+itau/day_step
 !             time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
-!
+
 !                  IF(time.GT.1.) THEN
 !                   time = time-1.