595 |
& ' /* deep-model grid factor @ cell-Center (-) */') |
& ' /* deep-model grid factor @ cell-Center (-) */') |
596 |
CALL WRITE_1D_R8( deepFacF, Nr+1, INDEX_K,'deepFacF = ', |
CALL WRITE_1D_R8( deepFacF, Nr+1, INDEX_K,'deepFacF = ', |
597 |
& ' /* deep-model grid factor @ W-Interface (-) */') |
& ' /* deep-model grid factor @ W-Interface (-) */') |
598 |
|
CALL WRITE_1D_R8( rVel2wUnit, Nr+1, INDEX_K,'rVel2wUnit = ', |
599 |
|
& ' /* convert units: rVel -> wSpeed (=1 if z-coord)*/') |
600 |
|
CALL WRITE_1D_R8( wUnit2rVel, Nr+1, INDEX_K,'wUnit2rVel = ', |
601 |
|
& ' /* convert units: wSpeed -> rVel (=1 if z-coord)*/') |
602 |
CALL WRITE_1D_R8( dBdrRef, Nr, INDEX_K,'dBdrRef = ', |
CALL WRITE_1D_R8( dBdrRef, Nr, INDEX_K,'dBdrRef = ', |
603 |
& ' /* Vertical gradient of reference boyancy [(m/s/r)^2)] */') |
& ' /* Vertical gradient of reference boyancy [(m/s/r)^2)] */') |
604 |
|
|