Changeset 1461 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-06-08T17:17:54+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r1348 r1461 1087 1087 REAL(wp) :: hc = 150 ! Critical depth for s-sigma coordinates 1088 1088 1089 REAL(wp), DIMENSION(jpi,jpj,jpk) :: gsigw3, gsigt3, gsi3w3, esigt3, esigw3, esigtu3, esigtv3, esigtf3, esigwu3, esigwv3 1089 REAL(wp), DIMENSION(jpi,jpj,jpk) :: gsigw3 = 0.0d0 1090 REAL(wp), DIMENSION(jpi,jpj,jpk) :: gsigt3 = 0.0d0 1091 REAL(wp), DIMENSION(jpi,jpj,jpk) :: gsi3w3 = 0.0d0 1092 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigt3 = 0.0d0 1093 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigw3 = 0.0d0 1094 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigtu3 = 0.0d0 1095 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigtv3 = 0.0d0 1096 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigtf3 = 0.0d0 1097 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigwu3 = 0.0d0 1098 REAL(wp), DIMENSION(jpi,jpj,jpk) :: esigwv3 = 0.0d0 1090 1099 !! 1091 1100 NAMELIST/nam_zgr_sco/ sbot_max, sbot_min, theta, thetb, r_max, ln_s_sigma, bb, hc … … 1118 1127 bathy(:,:) = MIN( sbot_max, bathy(:,:) ) 1119 1128 1129 DO jj = 1, jpj 1130 DO ji = 1, jpi 1131 IF (bathy(ji,jj) .gt. 0.0) THEN 1132 bathy(ji,jj) = MAX( sbot_min, bathy(ji,jj) ) 1133 ENDIF 1134 END DO 1135 END DO 1120 1136 ! ! ============================= 1121 1137 ! ! Define the envelop bathymetry (hbatt) … … 1427 1443 1428 1444 ! 1445 !! H. Liu, POL. April 2009. Added for passing the scale check for the new released vvl code. 1446 1447 fsdept(:,:,:) = gdept (:,:,:) 1448 fsdepw(:,:,:) = gdepw (:,:,:) 1449 fsde3w(:,:,:) = gdep3w(:,:,:) 1450 fse3t (:,:,:) = e3t (:,:,:) 1451 fse3u (:,:,:) = e3u (:,:,:) 1452 fse3v (:,:,:) = e3v (:,:,:) 1453 fse3f (:,:,:) = e3f (:,:,:) 1454 fse3w (:,:,:) = e3w (:,:,:) 1455 fse3uw(:,:,:) = e3uw (:,:,:) 1456 fse3vw(:,:,:) = e3vw (:,:,:) 1457 !! 1429 1458 ! HYBRID : 1430 1459 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.