Changeset 9225
- Timestamp:
- 2018-01-15T10:17:26+01:00 (6 years ago)
- Location:
- branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r5628 r9225 231 231 IF (lk_vvl) THEN 232 232 DO jk = 1, jpkm1 233 fse3t_ b(:,:,jk) = fse3t_n(:,:,jk)234 fse3u_ b(:,:,jk) = fse3u_n(:,:,jk)235 fse3v_ b(:,:,jk) = fse3v_n(:,:,jk)236 END DO233 fse3t_n(:,:,jk) = fse3t_a(:,:,jk) 234 fse3u_n(:,:,jk) = fse3u_a(:,:,jk) 235 fse3v_n(:,:,jk) = fse3v_a(:,:,jk) 236 END DO 237 237 ENDIF 238 238 ELSE !* Leap-Frog : Asselin filter and swap -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/ICB/icbtrj.F90
r8081 r9225 110 110 iret = NF90_DEF_VAR(ntrajid, 'uti', NF90_DOUBLE, n_dim, nuiid) 111 111 iret = NF90_DEF_VAR(ntrajid, 'vti', NF90_DOUBLE, n_dim, nviid) 112 iret = NF90_DEF_VAR(ntrajid, 'ssh_x', NF90_DOUBLE, n_dim, nssh yid)113 iret = NF90_DEF_VAR(ntrajid, 'ssh_y', NF90_DOUBLE, n_dim, nssh xid)112 iret = NF90_DEF_VAR(ntrajid, 'ssh_x', NF90_DOUBLE, n_dim, nsshxid) 113 iret = NF90_DEF_VAR(ntrajid, 'ssh_y', NF90_DOUBLE, n_dim, nsshyid) 114 114 iret = NF90_DEF_VAR(ntrajid, 'sst', NF90_DOUBLE, n_dim, nsstid) 115 115 iret = NF90_DEF_VAR(ntrajid, 'icnt', NF90_DOUBLE, n_dim, ncntid)
Note: See TracChangeset
for help on using the changeset viewer.