Changeset 2100 for LMDZ5/trunk/libf/dyn3dpar

Timestamp:

Jul 22, 2014, 6:33:56 PM (10 years ago)

Author:

lguez

Message:

Removed "on rentre dans guide_main" from guide_main in dyn3dpar, was
already commented out in the dyn3dmem version.

Keeping length of lines under 80 characters in physiq (for
readability). Removed wrong comments "ajout des tendances de la
diffusion turbulente". Replaced "con" by "convection" as an argument
of add_phys_tend.

Location:

LMDZ5/trunk/libf/dyn3dpar

Files:

• abort_gcm.F (modified) (2 diffs)
• guide_p_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

@@ -27 +27 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character(len=*) modname
+      character(len=*), intent(in):: modname
       integer ierr, ierror_mpi
-      character(len=*) message
+      character(len=*), intent(in):: message
 
       write(lunout,*) 'in abort_gcm'
@@ -53 +53 @@
         write(lunout,*) 'Everything is cool'
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
 #ifdef CPP_MPI
 C$OMP CRITICAL (MPI_ABORT_GCM)

LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90

@@ -374 +374 @@
     ENDIF
       
-     PRINT *,'---> on rentre dans guide_main'
 !    CALL AllGather_Field(ucov,ip1jmp1,llm)
 !    CALL AllGather_Field(vcov,ip1jm,llm)