Changeset 9510
- Timestamp:
- 2018-04-27T11:55:57+02:00 (7 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/step.F90
r9367 r9510 38 38 #if defined key_agrif 39 39 USE agrif_oce, ONLY: lk_agrif_debug 40 #if defined key_lim3 41 USE agrif_lim3_update 42 #endif 40 43 #endif 41 44 … … 46 49 47 50 !!---------------------------------------------------------------------- 48 !! NEMO/OPA 3.3 , NEMO Consortium (2010)51 !! NEMO/OPA 4.0 , NEMO Consortium (2017) 49 52 !! $Id$ 50 53 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 104 107 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 105 108 CALL Agrif_Integrate_ChildGrids( stp ) 109 110 IF( Agrif_NbStepint() == 0 ) THEN ! AGRIF Update from zoom N to zoom 1 then to Parent 111 #if defined key_lim3 112 CALL Agrif_Update_lim3( kstp ) ! update sea-ice 113 #endif 114 ENDIF 106 115 #endif 107 116 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/stpctl.F90
r9441 r9510 70 70 IF( lwm ) THEN 71 71 istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun ) 72 istatus = NF90_DEF_DIM( idrun, 'time' , NF90_UNLIMITED, idtime )73 istatus = NF90_DEF_VAR( idrun, ' abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh )74 istatus = NF90_DEF_VAR( idrun, 75 istatus = NF90_DEF_VAR( idrun, 's_min', NF90_DOUBLE, (/ idtime /), ids )72 istatus = NF90_DEF_DIM( idrun, 'time' , NF90_UNLIMITED, idtime ) 73 istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh ) 74 istatus = NF90_DEF_VAR( idrun, 'abs_u_max', NF90_DOUBLE, (/ idtime /), idu ) 75 istatus = NF90_DEF_VAR( idrun, 'tm_i_min' , NF90_DOUBLE, (/ idtime /), ids ) 76 76 istatus = NF90_ENDDEF(idrun) 77 77 ENDIF … … 106 106 END IF 107 107 ! 108 9400 FORMAT(' it :', i8, ' |ssh|_max: ', D23.16, ' |U|_max: ', D23.16,' S_min: ', D23.16)108 9400 FORMAT(' it :', i8, ' vt_i_max: ', D23.16, ' |u|_max: ', D23.16,' tm_i_min: ', D23.16) 109 109 ! 110 110 END SUBROUTINE stp_ctl
Note: See TracChangeset
for help on using the changeset viewer.