Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/wrgrads.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/wrgrads.F (modified) (1 diff)

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

@@ -102 +102 @@
       write(unit(if),'(a12)') 'UNDEF 1.0E30'
       write(unit(if),'(a5,1x,a40)') 'TITLE ',title(if)
-      call formcoord(unit(if),im,xd(iii,if),1.,.false.,'XDEF')
-      call formcoord(unit(if),jm,yd(iji,if),1.,.true.,'YDEF')
-      call formcoord(unit(if),lm,zd(1,if),1.,.false.,'ZDEF')
+      CALL formcoord(unit(if),im,xd(iii,if),1.,.false.,'XDEF')
+      CALL formcoord(unit(if),jm,yd(iji,if),1.,.true.,'YDEF')
+      CALL formcoord(unit(if),lm,zd(1,if),1.,.false.,'ZDEF')
       write(unit(if),'(a4,i10,a30)')
      &       'TDEF ',itime(if),' LINEAR 02JAN1987 1MO '