Changeset 392 for trunk/NEMO/OPA_SRC/opa.F90
- Timestamp:
- 2006-03-10T11:55:45+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/opa.F90
r389 r392 110 110 !!---------------------------------------------------------------------- 111 111 112 #if defined key_ AGRIF112 #if defined key_agrif 113 113 114 114 Call Agrif_Init_Grids() … … 120 120 istp = nit000 121 121 DO WHILE ( istp <= nitend .AND. nstop == 0 ) 122 #if defined key_ AGRIF122 #if defined key_agrif 123 123 CALL Agrif_Step(stp_1d) 124 124 #else … … 130 130 istp = nit000 131 131 DO WHILE ( istp <= nitend .AND. nstop == 0 ) 132 #if defined key_ AGRIF132 #if defined key_agrif 133 133 CALL Agrif_Step(stp) 134 134 #else
Note: See TracChangeset
for help on using the changeset viewer.