Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/cla_dynspg_tam.F90
- Timestamp:
- 2011-02-15T12:58:59+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/cla_dynspg_tam.F90
r1885 r2587 31 31 & lwp, & 32 32 & numout, & 33 & nit000 33 & nit000, & 34 & nitend 34 35 USE dom_oce , ONLY: & ! Ocean space and time domain 35 36 & mi0, & … … 330 331 ! Control print 331 332 ! ------------- 332 IF( kt == nit 000) THEN333 IF( kt == nitend ) THEN 333 334 IF(lwp) WRITE(numout,*) 334 335 IF(lwp) WRITE(numout,*) 'cla_dynspg_adj : cross land advection on surface ' … … 486 487 ! we convert in m3 487 488 zempmed = zempmed * 1.e-3_wp 488 489 !!!! AW: Adjoint of this????490 IF( lk_mpp ) CALL mpp_sum( zempmed ) ! sum with other processors value491 489 492 490 ! minus 2 points in Red Sea and 3 in Atlantic … … 504 502 END DO 505 503 504 IF( lk_mpp ) CALL mpp_sum( zempmed ) ! sum with other processors value 505 506 506 ! compute the emp in Mediterranean Sea 507 507 ij0 = 96 ; ij1 = 110
Note: See TracChangeset
for help on using the changeset viewer.