Ignore:
Timestamp:
Jun 25, 2015, 9:45:24 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Further modifications to enforce physics/dynamics separation:

  • moved iniprint.h and misc_mod back to dyn3d_common, as these should only be used by dynamics.
  • created print_control_mod in the physics to store flags prt_level, lunout, debug to be local to physics (should be used rather than iniprint.h)
  • created abort_physic.F90 , which does the same job as abort_gcm() did, but should be used instead when in physics.
  • reactivated inifis (turned it into a module, inifis_mod.F90) to initialize physical constants and print_control_mod flags.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/read_map2D.F90

    r1907 r2311  
    66  USE mod_grid_phy_lmdz
    77  USE mod_phys_lmdz_para
    8 
     8  USE print_control_mod, ONLY: lunout
    99
    1010  IMPLICIT NONE
     
    2727  REAL, DIMENSION(nbp_lon,nbp_lat) :: var_glo2D_tmp ! 2D global
    2828  REAL, DIMENSION(klon_glo)        :: var_glo1D     ! 1D global
    29   INCLUDE "iniprint.h"
    3029
    3130! Read variable from file. Done by master process MPI and master thread OpenMP
     
    6665  CONTAINS
    6766    SUBROUTINE write_err_mess(err_mess)
    68 
     67      USE print_control_mod, ONLY: lunout
     68      IMPLICIT NONE
    6969      CHARACTER(len=*), INTENT(IN) :: err_mess
    70       INCLUDE "iniprint.h"
    7170     
    7271      WRITE(lunout,*) 'Error in read_map2D, filename = ', trim(filename)
     
    7473      WRITE(lunout,*) 'Error in read_map2D, timestep = ', timestep
    7574
    76       CALL abort_gcm(modname, err_mess, 1)
     75      CALL abort_physic(modname, err_mess, 1)
    7776
    7877    END SUBROUTINE write_err_mess
Note: See TracChangeset for help on using the changeset viewer.