Ignore:
Timestamp:
Apr 15, 2015, 6:49:07 PM (10 years ago)
Author:
ymipsl
Message:

remove all dynamic dependency in LMDZ physics except for the include "dimensions.h"

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/orografi_strato.F90

    r3809 r3814  
    15581558  IF (nlon/=klon .OR. nlev/=klev) THEN
    15591559    abort_message = 'pb dimension'
    1560     CALL abort_gcm(modname, abort_message, 1)
     1560    CALL abort_physic(modname, abort_message, 1)
    15611561  END IF
    15621562  zcons1 = 1./rd
    … …  
    18731873  PRINT *, ' DANS SUGWD nktopg=', nktopg
    18741874  PRINT *, ' DANS SUGWD nstra=', nstra
    1875   if (nstra == 0) call abort_gcm("sugwd_strato", "no level in stratosphere", 1)
     1875  if (nstra == 0) call abort_physic("sugwd_strato", "no level in stratosphere", 1)
    18761876
    18771877  gsigcr = 0.80
Note: See TracChangeset for help on using the changeset viewer.