Changeset 2302 for LMDZ5/trunk/libf/phylmd/limit_netcdf.F90

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:

• LMDZ5/trunk/libf/phylmd/limit_netcdf.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/limit_netcdf.F90

@@ -19 +19 @@
   USE control_mod
   USE indice_sol_mod
-#ifdef CPP_EARTH
   USE dimphy
   USE ioipsl,             ONLY : ioget_year_len
@@ -30 +29 @@
   USE netcdf95,    ONLY: nf95_def_var, nf95_put_att, nf95_put_var
   USE grid_atob_m, ONLY: grille_m, rugosite, sea_ice
-#endif
   IMPLICIT NONE
 !-------------------------------------------------------------------------------
@@ -41 +39 @@
   LOGICAL,                    INTENT(IN) :: oldice   ! old way ice computation
   REAL, DIMENSION(iip1,jjp1), INTENT(IN) :: masque   ! land mask
-#ifndef CPP_EARTH
-  CALL abort_gcm('limit_netcdf','Earth-specific routine, needs Earth physics',1)
-#else
 !-------------------------------------------------------------------------------
 ! Local variables:
@@ -648 +643 @@
 
 #endif
-! of #ifdef CPP_EARTH
-
-#endif
 ! of #ifndef CPP_1D
 END SUBROUTINE limit_netcdf