Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/write_grads_dyn.h

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/write_grads_dyn.h (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/write_grads_dyn.h

@@ -2 +2 @@
 ! $Header$
 
-      if (callinigrads) then
+if (callinigrads) then
 
-         string10='dyn'
-         CALL inigrads(1,iip1
-     s  ,rlonv,180./pi,-180.,180.,jjp1,rlatu,-90.,90.,180./pi
-     s  ,llm,presnivs,1.
-     s  ,dtvr*iperiod,string10,'dyn_zon ')
+   string10='dyn'
+   CALL inigrads(1,iip1 &
+         ,rlonv,180./pi,-180.,180.,jjp1,rlatu,-90.,90.,180./pi &
+         ,llm,presnivs,1. &
+         ,dtvr*iperiod,string10,'dyn_zon ')
 
-        callinigrads=.FALSE.
+  callinigrads=.FALSE.
 
 
-      endif
+endif
 
-      string10='ps'
-      CALL wrgrads(1,1,ps,string10,string10)
+string10='ps'
+CALL wrgrads(1,1,ps,string10,string10)
 
-      string10='u'
-      CALL wrgrads(1,llm,unat,string10,string10)
-      string10='v'
-      CALL wrgrads(1,llm,vnat,string10,string10)
-      string10='teta'
-      CALL wrgrads(1,llm,teta,string10,string10)
-      do iq=1,nqtot
-         string10='q'
-         write(string10(2:2),'(i1)') iq
-         CALL wrgrads(1,llm,q(:,:,iq),string10,string10)
-      enddo
+string10='u'
+CALL wrgrads(1,llm,unat,string10,string10)
+string10='v'
+CALL wrgrads(1,llm,vnat,string10,string10)
+string10='teta'
+CALL wrgrads(1,llm,teta,string10,string10)
+do iq=1,nqtot
+   string10='q'
+   write(string10(2:2),'(i1)') iq
+   CALL wrgrads(1,llm,q(:,:,iq),string10,string10)
+enddo