Changeset 4191


Ignore:
Timestamp:
Jun 30, 2022, 10:21:32 AM (2 years ago)
Author:
acozic
Message:

remove two abort_gcm which is not known when we compile with dynamico and we are not using dyn3dmem / dyn3d_common

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

    r4169 r4191  
    10191019  !=== READ PHYSICAL PARAMETERS FROM "isotopes_params.def" FILE
    10201020  !    DONE HERE, AND NOT ONLY IN "infotrac_phy", BECAUSE SOME PHYSICAL PARAMS ARE NEEDED FOR RESTARTS (tnat AND alpha_ideal)
    1021   IF(readIsotopesFile('isotopes_params.def',isot)) CALL abort_gcm(modname,'Problem when reading isotopes parameters',1)
     1021  IF(readIsotopesFile('isotopes_params.def',isot)) THEN
     1022     STOP 'Problem when reading isotopes parameters in initIsotopes'
     1023  ENDIF
    10221024
    10231025END SUBROUTINE initIsotopes

  • LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

    r4172 r4191  
    162162
    163163   type_trac = type_trac_
    164    IF(strParse(type_trac, '|', types_trac)) CALL abort_gcm(modname,'can''t parse "type_trac = '//TRIM(type_trac)//'"',1)
     164   IF(strParse(type_trac, '|', types_trac)) CALL abort_physic(modname,'can''t parse "type_trac = '//TRIM(type_trac)//'"',1)
    165165   tracers   = tracers_
    166166   isotopes  = isotopes_
Note: See TracChangeset for help on using the changeset viewer.