Changeset 2302 for LMDZ5/trunk/libf/phylmd
- Timestamp:
- Jun 17, 2015, 2:46:36 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/limit_netcdf.F90
r2293 r2302 19 19 USE control_mod 20 20 USE indice_sol_mod 21 #ifdef CPP_EARTH22 21 USE dimphy 23 22 USE ioipsl, ONLY : ioget_year_len … … 30 29 USE netcdf95, ONLY: nf95_def_var, nf95_put_att, nf95_put_var 31 30 USE grid_atob_m, ONLY: grille_m, rugosite, sea_ice 32 #endif33 31 IMPLICIT NONE 34 32 !------------------------------------------------------------------------------- … … 41 39 LOGICAL, INTENT(IN) :: oldice ! old way ice computation 42 40 REAL, DIMENSION(iip1,jjp1), INTENT(IN) :: masque ! land mask 43 #ifndef CPP_EARTH44 CALL abort_gcm('limit_netcdf','Earth-specific routine, needs Earth physics',1)45 #else46 41 !------------------------------------------------------------------------------- 47 42 ! Local variables: … … 648 643 649 644 #endif 650 ! of #ifdef CPP_EARTH651 652 #endif653 645 ! of #ifndef CPP_1D 654 646 END SUBROUTINE limit_netcdf
Note: See TracChangeset
for help on using the changeset viewer.