Changeset 14588
- Timestamp:
- 2021-03-05T08:42:07+01:00 (3 years ago)
- Location:
- NEMO/releases/r4.0/r4.0-HEAD/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icewri.F90
r13284 r14588 253 253 CALL iom_rstput( 0, 0, kid, 'sisali', sm_i ) ! Ice salinity 254 254 CALL iom_rstput( 0, 0, kid, 'sivolu', vt_i ) ! Ice volume 255 CALL iom_rstput( 0, 0, kid, 'sidive', divu_i*1.0e8 ) ! Ice divergence256 255 CALL iom_rstput( 0, 0, kid, 'si_amp', at_ip ) ! Melt pond fraction 257 256 CALL iom_rstput( 0, 0, kid, 'si_vmp', vt_ip ) ! Melt pond volume … … 260 259 CALL iom_rstput( 0, 0, kid, 'sisalcat', s_i ) ! Ice salinity 261 260 CALL iom_rstput( 0, 0, kid, 'snthicat', h_s ) ! Snw thickness 261 IF( ln_icedyn ) THEN 262 CALL iom_rstput( 0, 0, kid, 'sidive', divu_i*1.e8 ) ! Ice divergence 263 ENDIF 262 264 263 265 END SUBROUTINE ice_wri_state -
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DYN/dynvor.F90
r12792 r14588 222 222 ENDIF 223 223 ! 224 zwz(:,:,jpk) = 0._wp 224 225 ! 225 226 SELECT CASE( kvor ) !== volume weighted vorticity considered ==! … … 349 350 INTEGER :: ji, jj, jk ! dummy loop indices 350 351 REAL(wp) :: zx1, zy1, zx2, zy2 ! local scalars 351 REAL(wp), DIMENSION(jpi,jpj) :: zwx, zwy, zwz ! 2D workspace352 REAL(wp), DIMENSION(jpi,jpj) :: zwx, zwy, zwz ! 1D workspace 352 353 !!---------------------------------------------------------------------- 353 354 ! … … 731 732 ENDIF 732 733 ! 734 zwz(:,:,jpk) = 0._wp 733 735 ! ! =============== 734 736 DO jk = 1, jpkm1 ! Horizontal slab -
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcwave.F90
r13255 r14588 220 220 ! !== vertical Stokes Drift 3D velocity ==! 221 221 ! 222 ze3divh(:,:,jpk) = 0._wp 222 223 DO jk = 1, jpkm1 ! Horizontal e3*divergence 223 224 DO jj = 2, jpj -
NEMO/releases/r4.0/r4.0-HEAD/src/TOP/PISCES/P4Z/p4zsed.F90
r12276 r14588 492 492 IF( p4z_sed_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_sed_alloc: failed to allocate arrays' ) 493 493 ! 494 nitrpot(:,:,jpk) = 0._wp ! initialization 495 ! 494 496 END FUNCTION p4z_sed_alloc 495 497 -
NEMO/releases/r4.0/r4.0-HEAD/src/TOP/trc.F90
r10425 r14588 25 25 INTEGER, PUBLIC :: numonr = -1 !: reference passive tracer namelist output output.namelist.top 26 26 INTEGER, PUBLIC :: numstr !: tracer statistics 27 INTEGER, PUBLIC :: numrtr 27 INTEGER, PUBLIC :: numrtr = -1 !: trc restart (read ) 28 28 INTEGER, PUBLIC :: numrtw !: trc restart ( write ) 29 29
Note: See TracChangeset
for help on using the changeset viewer.