Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

    r1907 r2100  
    2727C         ierr    = severity of situation ( = 0 normal )
    2828
    29       character(len=*) modname
     29      character(len=*), intent(in):: modname
    3030      integer ierr, ierror_mpi
    31       character(len=*) message
     31      character(len=*), intent(in):: message
    3232
    3333      write(lunout,*) 'in abort_gcm'
     
    5353        write(lunout,*) 'Everything is cool'
    5454      else
    55         write(lunout,*) 'Houston, we have a problem ', ierr
     55        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
    5656#ifdef CPP_MPI
    5757C$OMP CRITICAL (MPI_ABORT_GCM)
  • LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90

    r2025 r2100  
    374374    ENDIF
    375375     
    376      PRINT *,'---> on rentre dans guide_main'
    377376!    CALL AllGather_Field(ucov,ip1jmp1,llm)
    378377!    CALL AllGather_Field(vcov,ip1jm,llm)
Note: See TracChangeset for help on using the changeset viewer.