Changeset 1931 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Jan 17, 2014, 6:49:48 PM (11 years ago)

Author:

lguez

Message:

abort and exit are not in the Fortran standard. Replaced them by abort_gcm.

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -1153 +1153 @@
            IF(nCFMIP.GT.npCFMIP) THEN
               print*,'nCFMIP > npCFMIP : augmenter npCFMIP et recompiler'
-              CALL abort
+              call abort_gcm("physiq", "", 1)
            else
               print*,'physiq npCFMIP=',npCFMIP,'nCFMIP=',nCFMIP
@@ -1257 +1257 @@
      !$OMP BARRIER
 
-    freq_outNMC(1) = ecrit_files(7)
-    freq_outNMC(2) = ecrit_files(8)
-    freq_outNMC(3) = ecrit_files(9)
-    WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
-    WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
-    WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
+     freq_outNMC(1) = ecrit_files(7)
+     freq_outNMC(2) = ecrit_files(8)
+     freq_outNMC(3) = ecrit_files(9)
+     WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
+     WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
+     WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
 
      include "ini_histday_seri.h"
@@ -1692 +1692 @@
   ENDIF
 
-! AI Janv 2014 
-        do i = 1, klon
-         if (fract(i).le.0.) then
-            JrNt(i)=0.
-         else
-            JrNt(i)=1.
-         endif
-        enddo
+  ! AI Janv 2014 
+  do i = 1, klon
+     if (fract(i).le.0.) then
+        JrNt(i)=0.
+     else
+        JrNt(i)=1.
+     endif
+  enddo
 
   if (mydebug) then
@@ -2123 +2123 @@
   ELSE
      WRITE(lunout,*) "iflag_con non-prevu", iflag_con
-     CALL abort
+     call abort_gcm("physiq", "", 1)
   ENDIF
 
@@ -3250 +3250 @@
 
   ENDIF
-  !
 
   !