Ignore:
Timestamp:
Jun 17, 2015, 2:46:36 PM (9 years ago)
Author:
Ehouarn Millour
Message:

Move etat0phys_netcdf.F90 to "dynlonlat_phylonlat/phylmd" as it relies on "phylmd" routines.
Some cleanup to remove obsolete and unecessary CPP_EARTH preprocessing condition.
EM

File:
1 edited

Legend:

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

    r2293 r2302  
    1919  USE control_mod
    2020  USE indice_sol_mod
    21 #ifdef CPP_EARTH
    2221  USE dimphy
    2322  USE ioipsl,             ONLY : ioget_year_len
     
    3029  USE netcdf95,    ONLY: nf95_def_var, nf95_put_att, nf95_put_var
    3130  USE grid_atob_m, ONLY: grille_m, rugosite, sea_ice
    32 #endif
    3331  IMPLICIT NONE
    3432!-------------------------------------------------------------------------------
     
    4139  LOGICAL,                    INTENT(IN) :: oldice   ! old way ice computation
    4240  REAL, DIMENSION(iip1,jjp1), INTENT(IN) :: masque   ! land mask
    43 #ifndef CPP_EARTH
    44   CALL abort_gcm('limit_netcdf','Earth-specific routine, needs Earth physics',1)
    45 #else
    4641!-------------------------------------------------------------------------------
    4742! Local variables:
     
    648643
    649644#endif
    650 ! of #ifdef CPP_EARTH
    651 
    652 #endif
    653645! of #ifndef CPP_1D
    654646END SUBROUTINE limit_netcdf
Note: See TracChangeset for help on using the changeset viewer.