| 110 | |
| 111 | ==== HH20B3 ==== |
| 112 | Reprise de la simulation avec nouveaux poids (HH20BB). |
| 113 | |
| 114 | Idem HH20C |
| 115 | |
| 116 | Dans OPA/SRC_ORCA/flxrnf.F. Reprise modifs Olivier. Shéma upstream autour des embouchures. |
| 117 | |
| 118 | {{{ |
| 119 | diff /scratchdir/p86caub/CONTNEW/modipsl/modeles/OPA/SRC_ORCA/flxrnf.F flxrnf.F |
| 120 | flxrnf.F flxrnf.F < |
| 121 | 143,148d142 |
| 122 | < IF (nrunoff == -2) THEN |
| 123 | < IF(lwp)WRITE(numout,*) ' ' |
| 124 | < IF(lwp)WRITE(numout,*) 'Simulation with Upstream ' |
| 125 | < IF(lwp)WRITE(numout,*) ' at river mouth ' |
| 126 | < IF(lwp)WRITE(numout,*) ' ' |
| 127 | < ENDIF |
| 128 | 284,311c278 |
| 129 | < IF ((nrunoff == 2 .OR. nrunoff == -2 ) .AND. kt == nit000 ) THEN |
| 130 | < IF ( nrunoff == -2 ) then |
| 131 | < clname='runoff_1m_nomask' |
| 132 | < CALL flinopen(clname,nizoom,jpi,njzoom,jpj,.false.,ipi,ipj |
| 133 | < $ ,ipk,zlon,zlat,zlev,jpmois,istep,zdate0,rdt,numrof) |
| 134 | < C ... Title, dimensions and tests |
| 135 | < # if ! defined key_coupled |
| 136 | < IF(iman /= jpmois) THEN |
| 137 | < IF(lwp)WRITE(numout,*) ' ' |
| 138 | < IF(lwp)WRITE(numout,*) 'problem with time coordinates' |
| 139 | < IF(lwp)WRITE(numout,*) ' iman ',iman,' jpmois ',jpmois |
| 140 | < STOP 'flxrnf.F' |
| 141 | < ENDIF |
| 142 | < IF(lwp)WRITE(numout,*) iman,istep,zdate0,rdt,numrof |
| 143 | < IF(lwp)WRITE(numout,*) 'numrof=', numrof |
| 144 | < IF(lwp)WRITE(numout,*) 'jpmois=', jpmois |
| 145 | < IF(lwp)WRITE(numout,*) 'rdt=', rdt |
| 146 | < # endif |
| 147 | < IF(ipi /= jpidta .and. ipj /= jpjdta .and. ipk /= 1) THEN |
| 148 | < IF(lwp)WRITE(numout,*) ' ' |
| 149 | < IF(lwp)WRITE(numout,*) 'problem with dimensions' |
| 150 | < IF(lwp)WRITE(numout,*) ' ipi ',ipi,' jpidta ',jpidta |
| 151 | < IF(lwp)WRITE(numout,*) ' ipj ',ipj,' jpjdta ',jpjdta |
| 152 | < IF(lwp)WRITE(numout,*) ' ipk ',ipk,' =? 1' |
| 153 | < STOP 'flxrnf.F' |
| 154 | < ENDIF |
| 155 | < IF(lwp)WRITE(numout,*) 'ipi=', ipi,' ipj=',ipj,' ipk=',ipk |
| 156 | < ENDIF |
| 157 | --- |
| 158 | > IF (nrunoff == 2 .AND. kt == nit000) THEN |
| 159 | |
| 160 | }}} |