Updates for wave coupling in NUOPC (#196)

* Updates for wave coupling in NUOPC
* add exports of PSTOKES for WW3->MOM6 coupling
* add ice value for surface roughness and FLD2 to switch
* add FieldFill and FieldGather to the timings of wmesmf
* Updates to compile wmesmf after PR#189
* Updating Stokes partitions calculation to make sure there are
  default values

* for wcoss-phase2 open -> qopen

model/bin/comp.wcoss_phase2

@@ -106,7 +106,7 @@
   # open mpi implementation
   if [ "$omp_mod" = 'yes' ]
   then
-    opt="$opt -openmp"
+    opt="$opt -qopenmp"
   fi
 
   # oasis coupler include dir

model/bin/link.wcoss_phase2

@@ -109,7 +109,7 @@
   # open mpi implementation
   if [ "$omp_mod" = 'yes' ]
   then
-    opt="$opt -openmp"
+    opt="$opt -qopenmp"
   fi
 
   # oasis coupler archive

model/esmf/switch

@@ -19,6 +19,7 @@ NL1
 BT1
 DB1
 MLIM
+FLD2
 TR0
 BS0
 XX0

model/ftn/w3iogomd.ftn

@@ -3689,7 +3689,7 @@
 !/S      INTEGER, SAVE           :: IENT = 0
       REAL                    :: FACTOR, FKD,KD
       REAL                    :: ABX(NSEAL), ABY(NSEAL), USSCO
-      REAL                    :: MINDIFF=1.e8
+      REAL                    :: MINDIFF
       INTEGER                 :: Spc2Bnd(NK)
 !/
 !/ ------------------------------------------------------------------- /
@@ -3782,13 +3782,15 @@
                ENDIF
             ELSEIF (USS_SWITCH==2) THEN
                ! Match each spectral component to the nearest partition
-               DO IB=1,USSPF(2)
+               MINDIFF=1.e8
+               Spc2BND(IK) = 1
+               MINDIFF=abs(USSP_WN(1)-WN(IK,ISEA))
+               DO IB=2,USSPF(2)
                   IF (MinDiff .gt. abs(USSP_WN(IB)-WN(IK,ISEA))) then
                      Spc2BND(IK) = IB
                      MinDiff = abs(USSP_WN(IB)-WN(IK,ISEA))
                   ENDIF
                ENDDO
-               MINDIFF=1.e8
                !Put spectral energey into whichever band central wavenumber fits in
                USSP(JSEA,Spc2Bnd(IK))    =  USSP(JSEA,Spc2Bnd(IK)) + ABX(JSEA)*USSCO
                USSP(JSEA,NK+Spc2BND(IK)) =  USSP(JSEA,NK+Spc2Bnd(IK)) + ABY(JSEA)*USSCO