Changeset 5390 for LMDZ6/trunk/libf/phylmd/rrtm/dates.F90

Timestamp:

Dec 5, 2024, 5:09:25 PM (10 days ago)

Author:

yann meurdesoif

Message:

• Remove UTF8 character that inihibit fortran parsing with GPU morphosis
• Add missing END SUBROUTINE instead of simple END, that inhibit correct parsing with regulat expression parser (quick and dirty parsing)

YM

File:

• LMDZ6/trunk/libf/phylmd/rrtm/dates.F90 (modified) (18 diffs)

LMDZ6/trunk/libf/phylmd/rrtm/dates.F90

@@ -52 +52 @@
 
 IMPLICIT NONE
-end
+end subroutine dates_demo
 subroutine date_plus_ech(kan,kmo,kqu,psssss,pstati,cdtit)
 ! --------------------------------------------------------------
@@ -157 +157 @@
         &,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
 endif
-end
+end subroutine date_plus_ech
+
 subroutine datc(kaaaa,kmm,kqq,khh,kmi,kss,kjs,cdjs,cddt)
 ! --------------------------------------------------------------
@@ -245 +246 @@
 write(cddt,fmt='(i4.4,a,2(i2.2,a),2a,i2.2,a,i2.2,a,i2.2)') &
 &kaaaa,'_',kmm,'_',kqq,'_',cdjs,'_',khh,':',kmi,':',kss
-end
+end subroutine datc
+
 subroutine amqhms_vers_dj(kaaaa,kmm,kqq,khh,kmn,ps,pdj)
 ! --------------------------------------------------------------------------
@@ -298 +300 @@
 pdj=2451545.0- 0.5 +real(iecart)+real(khh)/24. &
 & +real(kmn)/1440.+ps/86400.
-end
+end subroutine amqhms_vers_dj
+
 subroutine daplus(kdat1,kopt,kdelt,kdat2)
 ! --------------------------------------------------------------------------
@@ -350 +353 @@
 igre=igre+kdelt
 call gregoi(igre,kopt,kdat2)
-end
+end subroutine daplus
+
 subroutine daplusj(k1,kec,k2)
 ! --------------------------------------------------------------
@@ -385 +389 @@
 INTEGER(KIND=4) :: KEC
 call daplus(k1,1,kec,k2)
-end
+end subroutine daplusj
+
 subroutine dapluss(cd1,kec,cd2)
 ! --------------------------------------------------------------
@@ -462 +467 @@
 is2=ireste
 write(cd2,fmt='(i8,3i2.2)') iamq2,ih2,im2,is2
-end
+end subroutine dapluss
+
 subroutine dj_vers_amqhms(pdj,kaaaa,kmm,kqq,khh,kmn,ps)
 ! --------------------------------------------------------------------------
@@ -536 +542 @@
 kmn=int(zfrac)
 ps=(zfrac-real(kmn))*60.
-end
+end subroutine dj_vers_amqhms
+
 subroutine dj_vers_amqhmsree(pdj,pgrer)
 ! --------------------------------------------------------------------------
@@ -575 +582 @@
 & + real(iqq)+real(ihh)/100. &
 & + real(imn)/10000.+zs/1.E+06
-end
+end subroutine dj_vers_amqhmsree
+
 subroutine amqhmsree_vers_dj(pgrer,pdj)
 ! --------------------------------------------------------------------------
@@ -623 +631 @@
 !
 call amqhms_vers_dj(iaaaa,imm,iqq,ihh,imn,zs,pdj)
-end
+end subroutine amqhmsree_vers_dj
+
 subroutine ecartd(kdat1,kdat2,kopt,kgre)
 ! --------------------------------------------------------------------------
@@ -679 +688 @@
 call gregod(kdat2,kopt,igre2)
 kgre=igre2-igre1
-end
+end subroutine ecartd
+
 subroutine ecartdj(k1,k2,kec)
 ! --------------------------------------------------------------
@@ -718 +728 @@
 INTEGER(KIND=4) :: KEC
 call ecartd(k1,k2,1,kec)
-end
+end subroutine ecartdj
+
 subroutine ecartds(cd1,cd2,kec)
 ! --------------------------------------------------------------
@@ -778 +789 @@
 !
 kec=kecq*86400+(ih2-ih1)*3600+(im2-im1)*60+is2-is1
-end
+end subroutine ecartds
+
 subroutine gregod(kdat,kopt,kgre)
 ! --------------------------------------------------------------------------
@@ -944 +956 @@
 ! **      3. Difference in2-in1
 kgre=(in2-in1)*iconv+ifrjour
-end
+end subroutine gregod
+
 subroutine gregoi(kgre,kopt,kdat)
 ! --------------------------------------------------------------------------
@@ -1093 +1106 @@
 endif
 kdat=idat
-end
+end subroutine gregoi
 function ijoursem(kdat)
 ! --------------------------------------------------------------------------
@@ -1125 +1138 @@
 iecart=igre-igredim
 ijoursem=modulo(iecart,7)
-end
+end function ijoursem
+
 subroutine qqmmaa(kdatd,cdresd)
 ! --------------------------------------------------------------------------
@@ -1172 +1186 @@
 write(cdresd,fmt='(a3,a1,i2,a1,i2.2,a1,i4.4)')&
 &cljour,' ',iqq,'.',imm,'.',ian
-end
+end subroutine qqmmaa
+
 subroutine quant(kdate,kquant)
 ! --------------------------------------------------------------
@@ -1200 +1215 @@
 call ecartdj(ibase,kdate,iec)
 kquant=iec+1
-end
+end subroutine quant