Changeset 5120 for trunk/NEMOGCM/NEMO/OFF_SRC
- Timestamp:
- 2015-03-03T17:11:55+01:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r4990 r5120 537 537 CALL eos_rab( pts, rab_n ) ! now local thermal/haline expension ratio at T-points 538 538 CALL bn2 ( pts, rab_n, rn2 ) ! now Brunt-Vaisala 539 IF( ln_zps ) & ! Partial steps: before Horizontal DErivative 540 & CALL zps_hde( kt, jpts, pts, gtsu, gtsv, & ! Partial steps: before horizontal gradient 541 & rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv , & ! 542 & gtui, gtvi, grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi ) ! of t, s, rd at the last ocean level 539 ! Partial steps: before Horizontal DErivative 543 540 ! only gtsu, gtsv, rhd, gru , grv are used 541 IF( ln_zps .AND. .NOT. ln_isfcav) & 542 & CALL zps_hde ( kt, jpts, pts, gtsu, gtsv, & ! Partial steps: before horizontal gradient 543 & rhd, gru , grv ) ! of t, s, rd at the last ocean level 544 IF( ln_zps .AND. ln_isfcav) & 545 & CALL zps_hde_isf( kt, jpts, pts, gtsu, gtsv, & ! Partial steps for top cell (ISF) 546 & rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv , & 547 & gtui, gtvi, grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi ) ! of t, s, rd at the first ocean level 548 544 549 545 550 -
trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r5118 r5120 233 233 WRITE(numout,*) ' NEMO team' 234 234 WRITE(numout,*) ' Ocean General Circulation Model' 235 WRITE(numout,*) ' version 3. 5 (2012) '235 WRITE(numout,*) ' version 3.6 (2015) ' 236 236 WRITE(numout,*) 237 237 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.