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 5939 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable – NEMO

Ignore:
Timestamp:
2015-11-27T15:57:28+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM --27-11-2015 -- MEDUSA-TOP debugg in MEDUSA iom_use adapt

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/MEDUSA/trcbio_medusa.F90

    r5937 r5939  
    38663866                  trc2d(ji,jj,68) = trc2d(ji,jj,68) + (freminca * fthk)        !! sum of fast-sinking Ca fluxes 
    38673867                  if (jk.eq.(mbathy(ji,jj)-1)) then 
    3868                      trc2d(ji,jj,69) = fsedn                                   !! N  sedimentation flux                                   
    3869                      trc2d(ji,jj,70) = fsedsi                                  !! Si sedimentation flux 
    3870                      trc2d(ji,jj,71) = fsedfe                                  !! Fe sedimentation flux 
    3871                      trc2d(ji,jj,72) = fsedc                                   !! C  sedimentation flux 
    3872                      trc2d(ji,jj,73) = fsedca                                  !! Ca sedimentation flux 
     3868                     trc2d(ji,jj,69) = fsedn(ji,jj)                                   !! N  sedimentation flux                                   
     3869                     trc2d(ji,jj,70) = fsedsi(ji,jj)                                  !! Si sedimentation flux 
     3870                     trc2d(ji,jj,71) = fsedfe(ji,jj)                                  !! Fe sedimentation flux 
     3871                     trc2d(ji,jj,72) = fsedc(ji,jj)                                   !! C  sedimentation flux 
     3872                     trc2d(ji,jj,73) = fsedca(ji,jj)                                  !! Ca sedimentation flux 
    38733873                  endif 
    38743874                  if (jk.eq.1)  trc2d(ji,jj,74) = qsr(ji,jj) 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5937 r5939  
    482482!! to : 
    483483!! 
    484       IF ( ln_diatrc  ) THEN  
     484      IF( ( ln_diatrc .AND. .NOT. lk_iomput ) .OR. ( ln_diatrc .AND. lk_medusa ) ) THEN  
    485485         ALLOCATE( trc2d(jpi,jpj,jpdia2d), trc3d(jpi,jpj,jpk,jpdia3d),  & 
    486486           &       ctrc2d(jpdia2d), ctrc2l(jpdia2d), ctrc2u(jpdia2d) ,  &  
     
    491491         trc3d(:,:,:,:) = 0._wp  ;   ctrc3d(:) = ' '   ;   ctrc3l(:) = ' '    ;    ctrc3u(:) = ' '  
    492492         ! 
    493       ELSE IF  ( lk_iomput .AND. lk_medusa ) THEN 
     493      ELSE IF  ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN 
    494494         CALL trc_nam_iom_medusa 
    495495      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.