- Timestamp:
- 2017-03-09T13:52:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Property svn:keywords deleted
r5682 r7773 193 193 IF( .NOT. Agrif_Root() ) THEN 194 194 CALL Agrif_ParentGrid_To_ChildGrid() 195 IF( l n_diaobs ) CALL dia_obs_wri195 IF( lk_diaobs ) CALL dia_obs_wri 196 196 IF( nn_timing == 1 ) CALL timing_finalize 197 197 CALL Agrif_ChildGrid_To_ParentGrid() … … 723 723 INTEGER, PARAMETER :: ntest = 14 724 724 INTEGER, DIMENSION(ntest) :: ilfax 725 !!---------------------------------------------------------------------- 726 ! lfax contains the set of allowed factors. 725 ! 726 ! ilfax contains the set of allowed factors. 727 ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 728 !!---------------------------------------------------------------------- 729 ! ilfax contains the set of allowed factors. 727 730 ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 728 731
Note: See TracChangeset
for help on using the changeset viewer.