- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/OBS/diaobs.F90
r9354 r9570 97 97 98 98 !!---------------------------------------------------------------------- 99 !! NEMO/O PA3.3 , NEMO Consortium (2010)99 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 100 100 !! $Id$ 101 101 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 324 324 & lfpindegs, llnightav ) 325 325 ENDIF 326 #if defined key_ lim3 || defined key_cice326 #if defined key_si3 || defined key_cice 327 327 IF( ln_sic ) THEN 328 328 jtype = jtype + 1 … … 500 500 USE oce , ONLY : tsn, un, vn, sshn ! Ocean dynamics and tracers variables 501 501 USE phycst , ONLY : rday ! Physical constants 502 #if defined key_ lim3502 #if defined key_si3 503 503 USE ice , ONLY : at_i ! LIM3 Ice model variables 504 504 #endif … … 611 611 CYCLE 612 612 ELSE 613 #if defined key_cice || defined key_ lim3613 #if defined key_cice || defined key_si3 614 614 zsurfvar(:,:) = fr_i(:,:) 615 615 #else
Note: See TracChangeset
for help on using the changeset viewer.