160 |
C CALL PLOT_FIELD_XYRS( tmpfld, |
C CALL PLOT_FIELD_XYRS( tmpfld, |
161 |
C & 'Model Depths K Index' , 1, myThid ) |
C & 'Model Depths K Index' , 1, myThid ) |
162 |
CML I assume that R_low is not changed anywhere else in the code |
CML I assume that R_low is not changed anywhere else in the code |
163 |
CML and since it is not changed in this routine, we don't need to |
CML and since it is not changed in this routine, we do not need to |
164 |
CML print it again. |
CML print it again. |
165 |
CML CALL PLOT_FIELD_XYRS(R_low, |
CML CALL PLOT_FIELD_XYRS(R_low, |
166 |
CML & 'Model R_low (ini_masks_etc)', 1, myThid) |
CML & 'Model R_low (ini_masks_etc)', 1, myThid) |
282 |
Cml implicitly implying that no cell that is wet in the begin will ever dry |
Cml implicitly implying that no cell that is wet in the begin will ever dry |
283 |
Cml up! This is a strong constraint and should be implementent as a hard |
Cml up! This is a strong constraint and should be implementent as a hard |
284 |
Cml inequality contraint when performing optimization (m1qn3 cannot do that) |
Cml inequality contraint when performing optimization (m1qn3 cannot do that) |
285 |
Cml Also, I am assuming here that the new hFac's never become zero during |
Cml Also, I am assuming here that the new hFac(s) never become zero during |
286 |
Cml optimization! |
Cml optimization! |
287 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
288 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
DO bi = myBxLo(myThid), myBxHi(myThid) |