New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6288 for branches/NERC – NEMO

Changeset 6288 for branches/NERC


Ignore:
Timestamp:
2016-02-04T13:53:50+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 04-02-2016 -- update IDTRA air-sea flux init

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r6216 r6288  
    9393         ! 
    9494      inv_idtra(:,:,:) = 0.0                                        !! init the inventory 
     95      qtr_idtra(:,:,:) = 0.0                                        !! init the air-sea flux 
    9596      DO jl = 1, jp_idtra 
    9697         jn = jp_idtra0 + jl - 1 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r6022 r6288  
    906906         IF( med_diag%DMS_SIMO%dgsave ) THEN 
    907907            CALL wrk_alloc( jpi, jpj,  dms_simo2d     ) 
    908         dms_simo2d (:,:)      = 0.0      !! 
     908         dms_simo2d(:,:)      = 0.0      !! 
    909909         ENDIF 
    910910         IF( med_diag%DMS_ARAN%dgsave ) THEN 
    911911            CALL wrk_alloc( jpi, jpj,   dms_aran2d    ) 
    912         dms_aran2d (:,:)      = 0.0      !! 
     912         dms_aran2d(:,:)      = 0.0      !! 
    913913         ENDIF 
    914914         IF( med_diag%DMS_HALL%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.